ingofroe
Goto Top

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?

Content-Key: 458024

Url: https://administrator.de/contentid/458024

Printed on: April 23, 2024 at 10:04 o'clock

Mitglied: 139920
Solution 139920 Jun 02, 2019 updated at 05:31:21 (UTC)
Goto Top
Lade das Dokument einfach lokal herunter
https://stackoverflow.com/questions/2973136/download-a-file-with-vbs
Und dann druckst du es...
Member: IngoFroe
IngoFroe Jun 02, 2019 at 23:04:25 (UTC)
Goto Top
Danke für diesen Tipp. Ich werde das so bald wie möglich ausprobieren!
Member: IngoFroe
IngoFroe Jul 05, 2019 at 20:51:42 (UTC)
Goto Top
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!