Hallo!
Bei mir funktionierte dieses VBS:
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 . . . "
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]