Tweet
Hallo liebe Leser,
ich habe hier ein spezielles Problem mit dem Druck von per Datenbank generierten Dokumenten
unter "Vista Business x86" in Verbindung mit "Access 2007".
Zunächst als wichtiger Hinweis: Die Applikation funktioniert unter "WinXP Pro" mit "Access 2003" einwandfrei.
Problembeschreibung:
Der Druck unter "Vista Business x86" funktioniert zwar aus allen Appliktionen inkl. Access-2007.
Allein wenn per VBA gedruckt werden soll, funktioniert es nicht. Es wird dann ein Vorschaudialog angezeigt.
Ausgedruckt wird nichts.
Im VBA-Code wird Abgefragt ob als Drucker "Win2PDF" ausgewählt wurde.
Wenn nicht, dann wird auf dem Netzwerkdrucker gedruckt.
Wurde "Win2PDF" ausgewählt, werden die PDF-Dokumente auch unter Vista mit "Access 2007" sauber generiert.
Wird der physikalische Drucker ausgewählt wird eine unvollständige Vorschau gezeigt.
Die Testsysteme wurde auf den aktuellsten Updatestand gebracht (Office & OS).
Das Problem ist auf anderen Systemen mit "Vista Business x86" und "Access 2007" reproduzierbar.
Codeschnipsel:
------------------ Schnipp -----------------
If cmbDrucker.Column(1) <> "Win2PDF" Then
DoCmd.OpenReport prvReportName, acViewDesign, , , acHidden
Set rpt = Application.Reports(prvReportName)
intReportOrientation = rpt.Printer.Orientation
Set rpt.Printer = Application.Printers(CInt(cmbDrucker))
rpt.Printer.Orientation = intReportOrientation
DoCmd.OpenReport prvReportName, acViewNormal
DoCmd.Close acReport, prvReportName, acSaveNo
Set rpt = Nothing
Else
If grpPrintPDF = 1 Then
'+++ save PDF reports in standart folder +++
If Dir(strSaveFolder4PDF & "\" & Kundennummer, vbDirectory) = "" Then MkDir strSaveFolder4PDF & "\" & Kundennummer
PrintToPDF prvReportName, strSaveFolder4PDF & "\" & Kundennummer & "\" & GR_ListBox.ItemData(i)
Else
'+++ save all PDF reports into selected folder +++
PrintToPDF prvReportName, strSaveFolder4PDF & "\" & GR_ListBox.ItemData(i)
End If
End If
WriteLogFile "J:\DB\Stats\common.log.txt", Now & " " & txtGRNummer & " ist gedruckt"
------------------ Schnapp -----------------
Was ist unter Vista mit Access 2007 anders als unter WinXP Pro mit Access 2003?
Viele Grüsse
pdigi
ich habe hier ein spezielles Problem mit dem Druck von per Datenbank generierten Dokumenten
unter "Vista Business x86" in Verbindung mit "Access 2007".
Zunächst als wichtiger Hinweis: Die Applikation funktioniert unter "WinXP Pro" mit "Access 2003" einwandfrei.
Problembeschreibung:
Der Druck unter "Vista Business x86" funktioniert zwar aus allen Appliktionen inkl. Access-2007.
Allein wenn per VBA gedruckt werden soll, funktioniert es nicht. Es wird dann ein Vorschaudialog angezeigt.
Ausgedruckt wird nichts.
Im VBA-Code wird Abgefragt ob als Drucker "Win2PDF" ausgewählt wurde.
Wenn nicht, dann wird auf dem Netzwerkdrucker gedruckt.
Wurde "Win2PDF" ausgewählt, werden die PDF-Dokumente auch unter Vista mit "Access 2007" sauber generiert.
Wird der physikalische Drucker ausgewählt wird eine unvollständige Vorschau gezeigt.
Die Testsysteme wurde auf den aktuellsten Updatestand gebracht (Office & OS).
Das Problem ist auf anderen Systemen mit "Vista Business x86" und "Access 2007" reproduzierbar.
Codeschnipsel:
------------------ Schnipp -----------------
If cmbDrucker.Column(1) <> "Win2PDF" Then
DoCmd.OpenReport prvReportName, acViewDesign, , , acHidden
Set rpt = Application.Reports(prvReportName)
intReportOrientation = rpt.Printer.Orientation
Set rpt.Printer = Application.Printers(CInt(cmbDrucker))
rpt.Printer.Orientation = intReportOrientation
DoCmd.OpenReport prvReportName, acViewNormal
DoCmd.Close acReport, prvReportName, acSaveNo
Set rpt = Nothing
Else
If grpPrintPDF = 1 Then
'+++ save PDF reports in standart folder +++
If Dir(strSaveFolder4PDF & "\" & Kundennummer, vbDirectory) = "" Then MkDir strSaveFolder4PDF & "\" & Kundennummer
PrintToPDF prvReportName, strSaveFolder4PDF & "\" & Kundennummer & "\" & GR_ListBox.ItemData(i)
Else
'+++ save all PDF reports into selected folder +++
PrintToPDF prvReportName, strSaveFolder4PDF & "\" & GR_ListBox.ItemData(i)
End If
End If
WriteLogFile "J:\DB\Stats\common.log.txt", Now & " " & txtGRNummer & " ist gedruckt"
------------------ Schnapp -----------------
Was ist unter Vista mit Access 2007 anders als unter WinXP Pro mit Access 2003?
Viele Grüsse
pdigi