ausgabe auf pdf
16.06.2005 11:43:41
jan
ich will alle arbeitsblätter auf einen pdf-drucker ausgeben und habe folgenden code hierfür geschrieben:
Sub InArbeitsmappe_AllesDrucken()
On Error GoTo Err_InArbeitsmappe_AllesDrucken
Dim i As Integer
Dim Blatt As Worksheet
Dim s As String
Dim zelle As Range
Dim iMsg As Integer
Dim sPrintToFileName As String
iMsg = MsgBox("Willst Du wirklich alles Ausdrucken !!!" & Chr(13) & "Ist ein virtueller Drucker angeschossen ?", 308, "Nachgefragt")
Select Case iMsg
Case vbYes
Case vbNo
'Place conditional Code here
MsgBox "Funktion abgebrochen"
GoTo Exit_InArbeitsmappe_AllesDrucken
End Select
For i = 1 To Application.Workbooks.Count
For Each Blatt In Workbooks(i).Worksheets
Blatt.Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1
sPrintToFileName = " - " & ActiveWorkbook.ActiveSheet.Name & " - " & Format(Now(), "yyyymmdd")
MsgBox sPrintToFileName
ActiveWindow.SelectedSheets.PrintOut Copies:=1, prtofilename:=sPrintToFileName
Next Blatt
Workbooks(i).Activate
Next i
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst
Range("A1").Select
MsgBox "Vorgang abgeschlossen !"
Exit_InArbeitsmappe_AllesDrucken:
On Error GoTo 0
Exit Sub
Err_InArbeitsmappe_AllesDrucken:
MsgBox "Fehler beim Massenausdruck"
GoTo Exit_InArbeitsmappe_AllesDrucken
End Sub
der pdf-drucker wird als standard gesetzt und dann sollte es funktionieren. leider kommt es dann zum absturz - keine rückmeldung.
wenn ich einen anderen virtuellen drucker (fineprint)nehme, dann klappt es besser ! allerdings kommt dann irgendwann auch eine meldung, dass ein fehler bei einer Massenausgabe vorliegt.
was kann die ursache hierfür sein bzw. hat einer von euch hierfür eine lösung ?
gruß Jan :-)