Office: VBA-Code für PDF Creator funktioniert nach Update nicht mehr

rookie_mark_mark · 28. Mai 2016

Hallo Leute =)

folgendes Problem liegt vor. Mithilfe des unten genannten Codes habe ich seit Jahren aus zwei verschiedenen Excel-Dateien bestimmte PDF-Dateien erzeugt. Dabei sind die Tabellenblätter-Namen in beiden Dateien identisch, die eine ist eine monatliche Aufstellung die andere die kumulierte. Mit dem Code hat es super geklappt, doch leider wurde nun ein Update des PDF-Creator auf Version 2.3.0 vorgenommen. Folgender Fehler exisiert nun "Laufzeitfehler 429: Objekterstellung durch ActiveX-Komponente nicht möglich". Hat jemand von euch eine Idee wie ich das Problem mit der aktuellen Version beheben kann? Die alte Version bekomme ich leider nicht mehr, sodass diese Möglichkeit ausscheidet.

Danke schon mal für eure Hilfe.

Schönen Tag

Gruß Markus

Code:

Public Sub Makro1()

Dim objPDF As Object
Dim sPDFName As String
Dim sPDFPath As String

Application.ScreenUpdating = False

'/// Change the output file name here! ///
sPDFName = "beispiel.pdf"
sPDFPath = "Y:\Neuer Ordner"
Set objPDF = CreateObject("PDFCreator.clsPDFCreator")

'Make sure the PDF-Filename not exists
If Dir(sPDFPath & sPDFName) = sPDFName Then
If MsgBox("Beispiel existiert bereits, überschreiben?", _
vbInformation + vbOKCancel + vbDefaultButton2, "Info!") = vbOK Then
Call Kill(sPDFPath & sPDFName)
Else
Exit Sub
End If
End If

'Make sure the PDF printer can start
If objPDF.cStart("/NoProcessingAtStartup") = False Then
MsgBox "Bitte den PDF Creator in der Taskleiste schließen", vbCritical + _
vbOKOnly, "Error!"
Exit Sub
End If

'Set all defaults
With objPDF
.cOption("UseAutosave") = 1
.cOption("UseAutosaveDirectory") = 1
.cOption("AutosaveDirectory") = sPDFPath
.cOption("AutosaveFilename") = sPDFName
.cOption("AutosaveFormat") = 0 ' 0 = PDF
.cClearCache
End With

'Print the document to PDF
Workbooks(Left(ThisWorkbook.Name, 4) & "k.xlsm").Worksheets("Tabelle1").Activate
Workbooks(Left(ThisWorkbook.Name, 4) & "k.xlsm").Worksheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).PrintOut Copies:=1, ActivePrinter:="PDFCreator", IgnorePrintAreas:=False
'Application.Wait (Time + TimeValue("00:00:05"))
Workbooks(Left(ThisWorkbook.Name, 4) & ".xlsm").Worksheets("Tabelle1").Activate
Workbooks(Left(ThisWorkbook.Name, 4) & ".xlsm").Worksheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).PrintOut Copies:=1, ActivePrinter:="PDFCreator", IgnorePrintAreas:=False

Application.Wait (Time + TimeValue("00:00:02"))

'Combine all PDFs into a single file and start the printer
With objPDF
.cCombineAll
.cPrinterStop = False
End With

Application.Wait (Time + TimeValue("00:00:01"))

'Wait until the file shows up before closing PDF Creator

objPDF.cClose

Set objPDF = Nothing

Set objWorksheet = Nothing
Set objWorkbook = Nothing

Application.ScreenUpdating = True

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

:)

Luschi · 30. Mai 2016

Hallo Markus,

es scheint große Mode zu werden, den Zugriff auf die Objektmodelle in neueren Software-Versionen zu ändern, ohne an die User zu denken.
Wie es ab Version 2.3 geht, zeigt dieser Beitrag: siehe h i e r

Eine ausführliche Beschreibung steht hier: Dokumentation

Gruß von Luschi
aus klein-Paris

rookie_mark_mark · 31. Mai 2016

Klasse!

Vielen Dank Luschi

Gruß Markus

xlph · 31. Mai 2016

Hallo Markus,

ab XL2010 kannst du deine Tabellen auch als PDF speichern.

Franz00 · 29. August 2017

Hallo Luschi,

ich habe den PDFCreator 2.5. auf meinen Rechner installiert. Dein Code habe ich getestet und bin mit F8 durchgegangen. Bei dem Befehl pdfJob.WaitForJob (10) geht es zur Codezeile Ende: pdfJob.ReleasCom

Hast Du eine Idee, warum das passiert? Danke.

Gruß Franz

lupo1 · 12. Januar 2021

von xlph

ab XL2010 kannst du deine Tabellen auch als PDF speichern.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

http://www.clever-excel-forum.de/Thr...sgabevergleich kann den einen oder anderen dazu bewegen, einen externen PDF-Ersteller zu verwenden.

Luschi · 29. August 2017

Hallo

im der in der Dokumentation angegebenen Beispiel-Code ist folgende Information zu lesen Code:

Die Programmausschnitte wurden in JavaScript geschrieben
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das ist also nicht Vba und muß erst konvertiert werden.

Gruß von Luschi
aus klein-Paris

Franz00 · 29. August 2017

Hallo Luschi,

gibt es denn für PDFCreator 2.5 eine VBA-Variante zum erzeugen von PDF?
Wenn ja, hast Du vielleicht auch ein Beispiel?
Danke.
Gruß Franz

mumpel · 30. August 2017

Hallo!

In #2 hat er bereits einen Link auf meinen Beispielcode gesetzt.

Gruß, René

Franz00 · 30. August 2017

Hallo René,

ja genau dieser Code habe ich mit PDFCreator 2.5 getestet und bin mit F8 durchgegangen. Bei dem Befehl pdfJob.WaitForJob (10) geht es zur Codezeile Ende: pdfJob.ReleasCom.

Hast Du eine Idee?
Danke.
Gruß Franz

mumpel · 30. August 2017

Da kann ich nichts sagen. Ich nutze noch die alte Version 1.7.3.

Office: VBA-Code für PDF Creator funktioniert nach Update nicht mehr

VBA-Code für PDF Creator funktioniert nach Update nicht mehr

VBA-Code für PDF Creator funktioniert nach Update nicht mehr

VBA-Code für PDF Creator funktioniert nach Update nicht mehr

VBA-Code für PDF Creator funktioniert nach Update nicht mehr

VBA-Code für PDF Creator funktioniert nach Update nicht mehr - Similar Threads - VBA Code PDF

VBA-Code überspringt einzelne Zeilen

Per Hyperlink ausgeblendetes Blatt einblenden

VBA Code für Zeilen ausblenden einblenden mit JA/Nein

VBA Code ohne ergebnis

VBA Code Anpassen "Wert Einfügen statt Formel"

PDF mit Namen,Datum speichern im Zielordner

PDF via VBA-Code im Access öffnen