PDF mit einem klick und keine lästigen Fenster...
alex
Ich habe einen Button und möchte damit ein PDF erstellen.
Das habe ich bisher:
Private Sub CommandButton4_Click()
Dim strPDFName
Dim Standarddrucker
Dim ZIEL, Dateiname, PDFprinter, fs, s
'Variable:
Range("A3") = Range("A3") + 1
PDFprinter = "FreePDF XP auf FILE:"
ZIEL = "C:\Dokumente und Einstellungen\Schatzi\Desktop\KCB\test\"
Dateiname = Range("A3")
strPDFName = ZIEL & Dateiname & ".ps"
Standarddrucker = Application.ActivePrinter
ActiveWorkbook.PrintOut Copies:=1, ActivePrinter:=PDFprinter, prtofilename:=strPDFName
Application.ActivePrinter = Standarddrucker
Standarddrucker = ""
strPDFName = ""
End Sub
Leider erstellt sich bis jetzt nur ein ps von ganz alleine, na ja fast...
Nun müsste ich eigentlich nur noch das ps doppelclicken und PDF Drucken klicken.
na ja... das sind noch 2 klicks zu viel!
Wenn ich mit
ActiveWorkbook.FollowHyperlink Address:=strDatei
das ps öffne startet leider nicht der freePDF XP 1.1 wie er das tun würde wenn ich das ps doppel klicke. Ich hätte dann mit SendKeys (wenn nötig)weitergearbeitet...
Vielleicht habt Ihr eine Lösung. Im Forum und Archiv habe ich leider nichts hilfreiches gefunden.... (zu freePDF XP läuft Ghostscript)