Hallo,
wir haben hier ein spezielles Problem mit dem Druck unter VBA unter 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 ebenfalls 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.
Es 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 ein unvollständiger
Vorschaudialog gezeigt.
Die Testsysteme wurde auf den aktuellsten Updatestand gebracht (Office & OS).
Was ist unter Vista mit Access-2007 anders als unter WinXP Pro mit Access-2003?
Viele Grüsse
Björn
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 -----------------
|