Sub RechnungDrucken()
Dim strAktuellerDrucker As String
strAktuellerDrucker = Application.ActivePrinter
ActiveSheet.PrintOut ActivePrinter:="FreePDF"
Application.ActivePrinter = strAktuellerDrucker
End Sub
Es öffnet sich das Fenster von FreePDF und erwartet u.a. die Angabe des Names der PDF-Datei und des Zielverzeichnisses. Danach wird die PDF-Datei erzeugt.
Nun kann FreePDF mit Parametern aufgerufen werden. Z.B.: "Filename.ps /a". FreePDF.exe erstellt dann die Datei "Filename.pdf". Wie kann ich die Parameter in VBA an FreePDF übergeben? Folgendes funktioniert nicht:
ActiveSheet.PrintOut ActivePrinter:="FreePDF Rechnung.ps /a".
Es erscheint zwar keine Fehlermeldung, der Ausdruck erfolgt jedoch auf den Standarddrucker und nicht als PDF-Datei. Wer hat eine Lösung?