Automatisches ausdrucken von PDF Dateien ohne Druckdialog - Script

Vielen Dank für die Antwort.

Leider habe ich vergessen zu erwähnen, das ich nur allgemeine Grundkenntnisse in programmieren verfüge. Daher verstehe ich nicht ganz, wie ich den Script richtig ausführen soll.

Über CMD muss der Script nicht ausgeführt werden.
Es wäre natürlich viel besser und einfacher, wenn ich einfach ein Script hätte, welches eine vorgegebene Datei (PDF) ausdruckt ohne den Druck-Dialog anzuzeigen.
Für mich wäre es eine sehr große Hilfe, wenn Du oder jemand anders mir diesen Script programmieren könnte, vorzugsweise in VBS. Falls dies nicht gehen sollte oder es über eine andere Programmiersprache besser funktionieren würde, wäre es auch kein Problem.
Das was wichtig wäre, das ich den Script in einer HTML Website einfügen und über ein Link ausführen kann. Die Website wird nur auf einem PC laufen und nicht über das Internet verfügbar sein.

Es soll nur immer die selbe Datei im selben Pfad gedruckt werde.
Wir haben nähmlich Kundentage. Wenn die Kunden Interesse haben, sollen sie sich dann die Vorstellung ausdrucken können über einen PC. Dabei soll dies über eine simplen HTML Startseit, die im Browser läuft, über ein Link ausgedruckt werden können. Es wird nur die eine PDF Datei in C: zum ausdrucken geben. Dabei soll halt kein Druckdialog erscheinen.
Sonst hat der PC nichts zu tun ausser zu drucken. Wo bestimmt dann nur der Browser läuft.

So, ich habe es geschaft.

Dieser Script:

set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "cmd"
WScript.Sleep 100
WshShell.SendKeys "printfile.vbs c:\Test.pdf "
WScript.Sleep 100
WSHShell.SendKeys "{Enter}"
WScript.Sleep 100
WSHShell.SendKeys "Exit"
WScript.Sleep 100
WSHShell.SendKeys "{Enter}"


führt dieses Script aus:


Option Explicit

Dim objShellApp
Dim argument
Dim strFile
If WScript.Arguments.Count < 1 Then
WScript.Echo("Usage: printfile.vbs file.doc")
WScript.Quit
End If

strFile = Wscript.Arguments(0)

Set objShellApp = WScript.CreateObject("Shell.Application")
objShellApp.ShellExecute strFile, "", "", "print", 0

Wscript.Sleep(5000)

Set objShellApp = Nothing


So wird endlich die PDF Datei ausgedruckt und die CMD Konsole nach dem Voragang geschlossen.
Das letzte Problem wäre jedoch, das sich die Anwendung (Adobe Reader) sich am Ende schliessen soll.
Kann mir jemand sagen, welche änderung ich im Script vornehmen soll, damit sich Adobe Reader sich am Ende schliesst nachdem es gestartet wurde?

Die Obere Beschreibung werde ich mal versuchen auszuprobieren. Ich habe hier auch ein weiteren Script gefunden:

Dim WSHShell : Set WSHShell = WScript.CreateObject("WScript.Shell")
WSHShell.run """C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"""
WScript.Sleep 1000*15
WSHShell.run """C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"" /t
""F:\EigeneDateien\#PDF\http --192.168.1.1-doc-online.sht.pdf"" ""LJ4 an
LPT1""" , , True
WScript.Sleep 1000*7
WSHShell.run """C:\Programme\Adobe\Acrobat 6.0\Reader\AcroRd32.exe"" /t
""F:\EigeneDateien\#PDF\http --192.168.1.1-doc-online.sht.pdf"" ""LJ4 im
Netz""" , , True
WScript.Sleep 1000*7
WSHShell.SendKeys "%{F4}"
WScript.Sleep 1000*1
MsgBox "Das wars . . . "

Kann mir jemand sagen ob das funktionieren würde?Muss ich einfach da den Standard Druckernamen einsetzten?Oder den Freigabename des Druckers?

Leider klappt es nicht bei mir.