' Webseite ausdrucken

DECLARE SUB DruckeWeb (url$)

DruckeWeb "http://www.meile.biz/"
DruckeWeb "http://www.hofen.ch/"

SUB DruckeWeb (url$)
  OPEN ENVIRON$("TEMP") + "\~PRTPAG.VBS" FOR OUTPUT AS 1
  PRINT #1, "Option Explicit"
  PRINT #1, "Dim oIE, oSh"
  PRINT #1, "Set oIE = WScript.CreateObject(" + CHR$(34) + "InternetExplorer.Application" + CHR$(34) + ")"
  PRINT #1, "Set oSh = WScript.CreateObject(" + CHR$(34) + "WScript.Shell" + CHR$(34) + ")"
  PRINT #1, "oIE.navigate " + CHR$(34) + url$ + CHR$(34)
  PRINT #1, "oIE.visible = True"
  PRINT #1, "Do While oIE.Busy"
  PRINT #1, "  WScript.Sleep 1000"
  PRINT #1, "Loop"
  PRINT #1, "WScript.Sleep 500"
  PRINT #1, "oIE.document.parentWindow.print"
  PRINT #1, "WScript.Sleep 3000"
  ' Warten, bis der Benutzer den Druckdialog beendet hat
  PRINT #1, "Do While oSh.AppActivate(" + CHR$(34) + "Drucken" + CHR$(34) + ")"
  PRINT #1, "  WScript.Sleep 1000"
  PRINT #1, "Loop"
  PRINT #1, "WScript.Sleep 500"
  PRINT #1, "oIE.Quit"
  PRINT #1, "Set oSh = Nothing"
  PRINT #1, "Set oIE = Nothing"
  CLOSE 1
  SHELL "cscript //NoLogo " + ENVIRON$("TEMP") + "\~PRTPAG.VBS"
  KILL ENVIRON$("TEMP") + "\~PRTPAG.VBS"
END SUB