|
Hallo Mase,
vielen Dank für deine Antwort!
Mit ShellExecute habe ich persönlich eher weniger Erfahrung, eben aber etwas damit getestet:
In der 32-Bit Version kommt dann die Abfrage wohin gedruckt werden soll. So weit war ich im VBS-Script ja auch schon. Aber ich möchte eben einen Pfad im Script definieren wo die neue PDF gespeichert werden soll, ohne Abfrage. Dazu finde ich im Netz leider auch nichts :(
Die 64-Bit Version (wird benötigt) funktioniert gar nicht, PDF Erstellung wird ohne Fehler nicht gestartet
'Zum PDF Drucken: 64-Bit Version von Office:
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'Zum PDF Drucken: 32-Bit Version von Office:
'Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile as String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd as Long) as Long
Sub PrintPDFToSpecificPrinter(FileName As String)
ShellExecute Application.hwnd, "print", FileName, "Microsoft Print to PDF", 0&, 0&
End Sub
Sub start()
PrintPDFToSpecificPrinter ("C:\Temp\asdf.pdf")
End Sub
Vielen Dank! :)
|