PDF mit FreePDF erstellen
20.07.2008 22:07:00
Jürgen
Hallo Detlef,
wenn der Dateiname sich aus der Variablen XY speisen soll, bindest Du Sie natürlich entsprechend ein, z.B. mit
... PrToFileName:="MeinOrdner\" & xy & ".ps"
Dass der FreePDF-Dialog nicht aufgeht, wenn Du die .ps-Datei in das angegebene FreePDF-Verzeichnis schreibst, liegt daran, dass sich übersehen hatte, dass die Datei mit dem Benutzernamen beginnen muss. Damit eignet sich dieses Verfahren nicht für Deine Problemstellung.
Ich habe Deine Lösung weiter unten gelesen - das erscheint mir dich noch recht umständlich. Daher noch mein Tipp, von der FreePDF-Homepage das Administratorenhandbuch herunterzuladen. Darin werden u.a. die Kommandozeilenparameter von FreePDF erläutert (Seite 12).
Ein Lösung könnte z.B. so aussehen:
Sub ErzeugePDF()
Dim MappenName As String
MappenName = ThisWorkbook.Path & "\Archiv_" & Format(Date, "yyyymmdd")
ActiveWorkbook.PrintOut 1, 1, Copies:=1, ActivePrinter:="FreePDF XP", PrintToFile:=True, _
PrToFileName:=MappenName & ".ps"
Shell "C:\Programme\FreePDF_XP\FreePDF /3 delpsend ""High Quality"" """ & MappenName & ".pdf"" " _
"" & MappenName & ".ps"""
End Sub
Gruß, Jürgen