Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
936to940
936to940
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Probleme mit PDF Erzeugung per VBA

Probleme mit PDF Erzeugung per VBA
08.01.2008 15:37:00
BorisHendrik
Hallo,
seit zwei Tagen zerbreche ich mir den Kopf und ich glaube, ich bin der Lösung auf dem Weg. Nachdem ich das Netz verzweifelt nach Dokumentationen der diversen Acrobat Schnittstellen durchsucht habe (die Bibliotheken, die ich in der VBE unter Verweise zur Verfügung habe) und nicht wirklich weitergekommen bin, habe ich hier im Forum (https://www.herber.de/forum/archiv/516to520/t518930.htm) eine Lösung gefunden, die ich folgendermassen abgeändert habe:

Sub PrintToPDF()
Dim objDistiller As New ACRODISTXLib.PdfDistiller
Dim strFileName As String
Dim strPath As String
strPath = "F:\Boris\AAA\"
strFileName = "pdftestdruck"
objDistiller.bShowWindow = True
ActiveWindow.SelectedSheets.PrintOut PrintTofile:=True, _
PrtoFilename:=strPath & strFileName & ".ps"
objDistiller.FileToPDF strPath & strFileName & ".ps", _
strPath & strFileName & ".pdf", ""
Kill strPath & strFileName & ".ps"
Set objDistiller = Nothing
End Sub


Das Problem besteht darin, dass das PostScrict File nicht lesbar ist.
Hier die Fehlermeldung des Distillers:
Acrobat Distiller 7.0
Started: Dienstag, 8. Januar 2008 at 15:16:27
Adobe PostScript software version: 3016.102
Start Time: Dienstag, 8. Januar 2008 at 15:16:27
Source: pdftestdruck.ps
Destination: F:\Boris\AAA\pdftestdruck.pdf
Adobe PDF Settings: C:\Documents and Settings\All Users\Documents\Adobe PDF\Settings\Standard.joboptions
%%[ Error: syntaxerror; OffendingCommand: ) ]%%
%%[ Flushing: rest of job (to end-of-file) will be ignored ]%%
%%[ Warning: PostScript error. No PDF file produced. ] %%
Distill Time: 0 seconds (00:00:00)
**** End of Job ****
Ich hoffe, jemand von Euch kann mir weiterhelfen. Vielleicht habe ich auch nicht genug gesucht, falls dem so ist, bitte ich um eure Nachhsiichht, ... ich kann nicht mehr!!!
Danke
Boris

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Probleme mit PDF Erzeugung per VBA
08.01.2008 17:18:00
BorisHendrik
Hallo,
ich habs gefunden, ich habs gefunden, ich habs gefunden .......
manchmal steht man wie der Esel vor dem Berg. IA IA IA IA
eine PostScript Datei ist ein spezielles AdobeFormat, dieses Format kann nur von dem Acrobat Printer erzeugt werden. Deshalb muss vor dem .... printout..... der Drucker entsprechend eingestellt werden.
also so:

Sub PrintToPDF()
Dim objDistiller As New ACRODISTXLib.PdfDistiller
Dim strFileName As String
Dim strPath As String
strPath = "F:\Boris\AAA\"
strFileName = "pdftestdruck"
objDistiller.bShowWindow = True
Application.ActivePrinter = "Adobe PDF on Ne01:"
ActiveWindow.SelectedSheets.PrintOut PrintTofile:=True, _
PrtoFilename:=strPath & strFileName & ".ps"
objDistiller.FileToPDF strPath & strFileName & ".ps", _
strPath & strFileName & ".pdf", ""
Kill strPath & strFileName & ".ps"
Set objDistiller = Nothing
End Sub


das geht natürlich noch schöner, der alte Drucker muss wieder eingestellt werden usw, aber das war zumindest mal die Lösung des Problems.
Gruss
Boris

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige