Lokale HTML Site mit Iframe vollständig automatisch ausdrucken lassen

Const strURL = "http://www.google.com"  

' http://msdn.microsoft.com/en-us/library/ms691264%28v=vs.85%29.aspx  
Const OLECMDID_PRINT = 6

' http://msdn.microsoft.com/en-us/library/ms683930%28v=vs.85%29.aspx  
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Visible = True 'Setze auf False, wenn alles funktioniert  
objIE.Navigate strURL

Do While objIE.Busy Or (objIE.ReadyState <> 4)
    Wscript.Sleep 100
Loop

' http://msdn.microsoft.com/en-us/library/aa752087%28v=vs.85%29.aspx  
objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

WScript.Sleep 3000
objIE.Quit
Set objIE = Nothing

Const strURL = "http://maps.google.de/maps?hl=de&tab=wl"  

Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Visible = True
objIE.FullScreen = True
objIE.Navigate strURL

Do While objIE.Busy Or (objIE.ReadyState <> 4)
    WScript.Sleep 100
Loop

Dim n
n = objIE.Document.getElementsByTagName("iframe").length  
If n > 0 Then
  Dim objIFrame
  Set objIFrame = objIE.Document.getElementsByTagName("iframe")(0)  
  Do While objIFrame.ReadyState <> "complete"  
      WScript.Sleep 100
  Loop
End If

objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

WScript.Sleep 3000

Set objIFrame = Nothing
objIE.Quit
Set objIE = Nothing

Const strURL = "http://maps.google.de/maps?hl=de&tab=wl"  

Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")  
objIE.Visible = True
objIE.FullScreen = True
objIE.Navigate strURL

Do While objIE.Busy Or (objIE.ReadyState <> 4)
    WScript.Sleep 100
Loop

Dim n
n = objIE.Document.getElementsByTagName("iframe").length  
If n > 0 Then
  Dim objIFrame, i
  For i = 1 To n
    Set objIFrame = objIE.Document.getElementsByTagName("iframe")(i - 1)  
    Do While objIFrame.ReadyState <> "complete"  
        WScript.Sleep 100
    Loop
    Set objIFrame = Nothing
  Next
End If

objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

WScript.Sleep 3000

objIE.Quit
Set objIE = Nothing