Excel to Pdf / Laufzeitfehler '429'
28.07.2004 10:21:36
Oliver
ich möchte ein Excel-Sheet als pdf-Datei erstellen. Diese soll mit automatischer Pfadangabe und Dateinamen gespeichert werden.
Aus dem Archiv habe ich folgenden Code, der auf meinem Privat PC auch wunderbar funktioniert.
Sub PDF()
'Konstante zum gewünschten Outputverzeichnis
Const PFAD As String = "C:\"
Dim NewDateiname As String
'Verweis auf Acrobat Distiller Library muss existieren: Acrodist.exe
Dim acr As ACRODISTXLib.PdfDistiller
Set acr = New ACRODISTXLib.PdfDistiller
NewDateiname = ActiveSheet.Range("RNR").Value
Application.ActivePrinter = "Adobe PDF auf Ne00:"
'Zuerst muss ein Postscriptfile erstellt werden
ActiveWindow.SelectedSheets.PrintOut Copies:=1, PrintToFile:=True, Collate:=True, PrToFileName:=PFAD & NewDateiname & ".ps"
'Mit Hilfe des Postscriptfiles kann das PDF generiert werden!
acr.FileToPDF PFAD & NewDateiname & ".ps", "", ""
'Danach kann das Postscriptfile wieder gelöscht werden.
Kill PFAD & NewDateiname & ".ps"
Application.StatusBar = False
Application.ScreenUpdating = True
Set acr = Nothing
End Sub
Nur die Umsetzung auf dem Firmen PC funktioniert leider nicht.
Bei dieser Zeile
Set acr = New ACRODISTXLib.PdfDistiller
erhalte ich immer den Laufzeitfehler '429', Objekterstellung durch ActiveX-Komonente nicht möglich.
Alle möglichen Verweise habe ich meines Erachtens schon ausprobiert.
Hat jemand eine Idee, wo der Fehler liegen könnte?
Vielen Dank im Voraus,
Gruß Oliver