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