AW: Blatt per VBA mit FreePDF als PDF-Datei sichern
02.10.2009 08:47:32
Mike
Hallo nochmal,
ich habe eine Lösung gefunden, in dem ich die Datei nach Erstellung des PDF einfach umbenenne...
Sub PDF_drucken()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.Worksheets("Auswertung").PrintOut Copies:=1, ActivePrinter:="FreePDF XP", PrintToFile:= _
True, PrToFileName:="H:\FTP-Service\Test.ps"
Application.Wait Now + TimeSerial(0, 0, 5)
Shell "c:\Programme\FreePDF_XP\freepdf.exe H:\FTP-Service\Test.ps /a /d /x"
' Umbennenung der Datei
Name "H:\FTP-Service\T.pdf" As "H:\FTP-Service\Test.pdf"
' Das Makro erstellt in C:\ die Datei "test.ps" und ruft dann FreePDF auf.
' Die PDF-Datei "test.pdf" wird im Hintergrund erstellt, ebenfalls in c:\.
' Die Parameter von FreePDF:
' /a erstellt "test.pdf"
' /d löscht "test.ps"
' /x beendet FreePDF
End Sub
Ciao, Mike