Dokument per Hyperlink automatisch drucken (VBS)

Hallo zusammen,
ich habe ein Problem, mit dem ich einfach nicht weiterkomme und hoffe, mir kann hier jemand helfen.
Es geht darum, dass ich eine Reihe von Dokumenten automatisch und ohne Dialog ausdrucken möchte. Dazu habe ich bereits ein kleines Skript erfolgreich ans Arbeiten bekommen:

Option Explicit
Dim objShellApp
Set objShellApp = WScript.CreateObject("Shell.Application")  
objShellApp.ShellExecute "\\server\ordner\_1.docx", "", "", "print", 0  
Wscript.Sleep(500)
objShellApp.ShellExecute "\\server\ordner\_2.xlsx", "", "", "print", 0  
Wscript.Sleep(500)
objShellApp.ShellExecute "\\server\ordner\_3.pdf", "", "", "print", 0  
Set objShellApp = Nothing

Nun stehe ich aber vor dem Problem, dass einige der auszudruckenden Dateien nur per Hyperlink aufrufbar sind.

objShellApp.ShellExecute "https://url.tld/_2.xlsx", "", "", "print", 0  

funktioniert aber nicht.

Leider kenne ich mich mit VBS nicht wirklich aus. Weiß jemand weiter?

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 458024

Url: https://administrator.de/forum/dokument-per-hyperlink-automatisch-drucken-vbs-458024.html

Ausgedruckt am: 24.05.2025 um 03:05 Uhr

3 Kommentare

Neuester Kommentar

Lade das Dokument einfach lokal herunter
https://stackoverflow.com/questions/2973136/download-a-file-with-vbs
Und dann druckst du es...

Danke für diesen Tipp. Ich werde das so bald wie möglich ausprobieren!

Es hat nun etwas gedauert. Heute habe ich deinen Vorschlag in die Tat umgesetzt. Bestimmt ist, weil es sich um mehrere verschiedene Dokumente handelte, das umständlichste Script entstanden, das du dir vorstellen kannst - aber es funktioniert!
Also nochmals ganz herzlichen Dank!

gelöstFrage Microsoft Microsoft Office

Mehr von IngoFroe

Script auf Knopfdruck ausführenIngoFroe - 6 Kommentare

Heiß diskutiert