Office: (Office 2010) Tabellenblätter einzeln als PDF speichern

christinew · 14. Mai 2014

Hallo zusammen,

ich bin VBA Neuling und in der Suche habe ich nichts passendes gefunden.

Ich habe eine Excel 2010 Datei mit ca. 70 Tabellenblättern. Ich würde diese gerne mit dem PDFCreator einzeln als PDF speichern.

Dazu wollte ich folgenden Code verwenden:

Tabellenblätter in PDF-Datei drucken. Einzel- und Seriendruck

For lSheet = 1 To ActiveWorkbook.Sheets.Count
'Prüfung ob das Arbeitsblatt leer ist; wenn ja dann Programm-Ende
If Not IsEmpty(ActiveSheet.UsedRange) Then
With pdfjob
'PDF-Dateinamen festlegen
sPDFName = "Dateiname_" & Sheets(lSheet).Name & ".pdf"
'Standardwerte setzen
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With

'PDF drucken
Worksheets(lSheet).PrintOut copies:=1, ActivePrinter:="PDFCreator"

'Warten, bis der Druckjob zum Drucken gekommen ist
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich diesen Code so ausführe dann kommt folgende Fehlermeldung:

Laufzeitfehler 1004
Die PrintOut-Methode des Worksheet-Objektes konnte nicht ausgeführt werden
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Beim Debuggen streicht es mir den folgenden Satz an:

Worksheets(lSheet).PrintOut copies:=1, ActivePrinter:="PDFCreator"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Wenn ich aber (lSheet) durch den Namen des ersten Tabellenblattes ersetze, dann erstellt er pro Tabellenblatt eine Datei - aber immer mit dem Inhalt des ersten.

Hat jemand eine Lösung für mich? Wäre sehr fein.

Vielen Dank!

:)

EarlFred · 16. Mai 2014

Hallo,

gerne mit dem PDFCreator einzeln
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

warum mit dem PDFCreator und nicht über die officeeigene Exportfunktion? Hat das einen besonderen Grund?

Grüße
EarlFred

christinew · 16. Mai 2014

Nein, hat keinen besonderen Grund - habe diese Lösung gefunden und wollte sie ausprobieren. Bin auch gerne für anderes offen :-)

mumpel · 16. Mai 2014

Hallo!

Benutze "For Each". Dann hast Du direkten Zugriff auf den Tabellennamen. Ungetestet.

Dim Blatt As Object
Dim pdfjob As Object

For Each Blatt In ActiveWorkbook.Worksheets

Rem Prüfung ob das Arbeitsblatt leer ist; wenn ja dann Programm-Ende
If Not IsEmpty(Blatt.UsedRange) Then

With pdfjob
sPDFName = "Dateiname_" & Blatt.Name & ".pdf"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With

Rem PDF drucken
Worksheets(Blatt.Name).PrintOut copies:=1, ActivePrinter:="PDFCreator"

Rem Warten, bis der Druckjob zum Drucken gekommen ist
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False

Next Blatt

Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß, René

christinew · 16. Mai 2014

Wie muss ich dann den kompletten Code verändern?

Sub PrintToPDF_MultiSheet_Early()
Dim pdfjob As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
Dim lSheet As Long

Set pdfjob = New PDFCreator.clsPDFCreator
sPDFPath = ActiveWorkbook.Path & Application.PathSeparator

'Sicherstellen, dass der PDFCreator startet
If pdfjob.cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If

For lSheet = 1 To ActiveWorkbook.Sheets.Count
'Prüfung ob das Arbeitsblatt leer ist; wenn ja dann Programm-Ende
If Not IsEmpty(ActiveSheet.UsedRange) Then
With pdfjob
'PDF-Dateinamen festlegen
sPDFName = "Dateiname_" & Sheets(lSheet).Name & ".pdf"
'Standardwerte setzen
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With

'PDF drucken
Worksheets(lSheet).PrintOut copies:=1, ActivePrinter:="PDFCreator"

'Warten, bis der Druckjob zum Drucken gekommen ist
Do Until pdfjob.cCountOfPrintjobs = 1
DoEvents
Loop
pdfjob.cPrinterStop = False

'Warten, bis PDFCreator gedruckt hat; dann Freigabe des Objekts
Do Until pdfjob.cCountOfPrintjobs = 0
DoEvents
Loop
End If
Next lSheet
pdfjob.cClose
Set pdfjob = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mumpel · 16. Mai 2014

Bitte nutze in Zukunft das Code-Tag, nicht das Zitat-Tag. Das Zitat-Tag entfernt nämlich alle Code-Einrückungen.

Ungetestet:

Option Explicit

Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Sub PrintToPDF_MultiSheet_Early()
Dim pdfCreator1 As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
Dim lSheet As Long
Dim Blatt As Object

For Each Blatt In ActiveWorkbook.Worksheets

Set pdfCreator1 = New PDFCreator.clsPDFCreator

sPDFPath = ActiveWorkbook.Path & "\"

If pdfCreator1.cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If

If Not IsEmpty(Blatt.UsedRange) Then

With pdfCreator1
sPDFName = "Dateiname_" & Blatt.Name & ".pdf"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With

Worksheets(Blatt.Name).PrintOut copies:=1, ActivePrinter:="PDFCreator"

Do Until pdfCreator1.cCountOfPrintjobs = 1
DoEvents
Sleep 1000
Loop
Sleep 1000
pdfCreator1.cPrinterStop = False
Do Until pdfCreator1.cCountOfPrintjobs = 0
DoEvents
Loop
End If

pdfCreator1.cClose
Set pdfCreator1 = Nothing

Next Blatt

End Sub

Lukas Mosimann
Projektbetreuung durch mumpel

Code erstellt und getestet in Office 15
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

christinew · 16. Mai 2014

Danke für den Hinweis!

Jetzt kommt folgende Fehlermeldung: Fehler beim Kompilieren - Variable nicht definiert

Code:

Option Explicit

Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Sub PrintToPDF_MultiSheet_Early()
Dim pdfCreator1 As PDFCreator.clsPDFCreator
Dim sPDFName As String
Dim sPDFPath As String
Dim lSheet As Long
Dim Blatt As Object

For Each Blatt In ActiveWorkbook.Worksheets

Set pdfCreator1 = New PDFCreator.clsPDFCreator

sPDFPath = ActiveWorkbook.Path & "\"

If pdfCreator1.cStart("/NoProcessingAtStartup") = False Then
MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
Exit Sub
End If

If Not IsEmpty(Blatt.UsedRange) Then

With pdfCreator1
sPDFName = "Dateiname_" & Blatt.Name & ".pdf"
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With

Worksheets(Budget).PrintOut copies:=1, ActivePrinter:="PDFCreator"

Do Until pdfCreator1.cCountOfPrintjobs = 1
DoEvents
Sleep 1000
Loop
Sleep 1000
pdfCreator1.cPrinterStop = False
Do Until pdfCreator1.cCountOfPrintjobs = 0
DoEvents
Loop
End If

pdfCreator1.cClose
Set pdfCreator1 = Nothing

Next Blatt

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Diesen Satz streicht er mir gelb an:

Code:

Sub PrintToPDF_MultiSheet_Early()
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

christinew · 16. Mai 2014

Ich nochmal: eigentlich funktioniert alles. Er legt die Dateien genau so ab wie ich es brauche.

Aber um den Laufzeitfehler 1004 | "Die PrintOut-Methode des Worksheet-Objektes konnte nicht ausgeführt werden" zu beheben muss ich dieses "lSheet" durch den Blattnamen (oder eben etwas anderes) ersetzen.

Code:

Worksheets(lSheet).PrintOut copies:=1, ActivePrinter:="PDFCreator"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Der Inhalt ist dann bei jeder Datei der Inhalt des angegebenen Tabellenblattes.

Gibt es vllt. einen Begriff für alle Tabellenblätter oder kein bestimmtes?

Bei diesem guten Herrn funktioniert der Code genau so wie er ist, mit diesem (lSheet).http://www.*************************506796_0_0_asc.php

Was mache ich nur falsch?

mumpel · 16. Mai 2014

Welchen "guten Herrn" meinst Du? Wenn Du auf "office-loesung"verlinkst musst Du das Minuszeichen maskieren, sonst wird der Link geändert.

Office: (Office 2010) Tabellenblätter einzeln als PDF speichern

Tabellenblätter einzeln als PDF speichern

Tabellenblätter einzeln als PDF speichern

Tabellenblätter einzeln als PDF speichern

Tabellenblätter einzeln als PDF speichern

Tabellenblätter einzeln als PDF speichern - Similar Threads - Tabellenblätter einzeln PDF

Einzelnes Tabellenblatt manuell berechnen per Button

Tabellenblatt in UserForm anzeigen um einzelne Zeilen in ein weiteres Tabelleblatt zu

Einzelnes Tabellenblatt als Mail schicken

Excel Einzelnes Tabellenblatt speichern unter

Mit VBA einzelne Tabellenblätter aus Excel separat speichern

Einzelne Seite eines Tabellenblattes versenden

VBA einzelne Tabellenblätter nur mit Pin/Passwort bearbeiten können