Udskrive et HTML dokument direkte fra VB

Tja jeg fandt selv ud af det og hvor svært kan det være:

  Web.navigate txtStitilHTML & "\" & f1.Name
  While Web.readyState <> READYSTATE_COMPLETE And Taeller < 500
    DoEvents: Sleep (20)
    Taeller = Taeller + 1
  Wend

  If Taeller = 500 And Web.readyState <> READYSTATE_COMPLETE Then
    Exit Function
  End If

  Web.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
  While Web.readyState <> READYSTATE_COMPLETE And Taeller < 500
    DoEvents: Sleep (20)
    Taeller = Taeller + 1
  Wend

  If Taeller = 500 And Web.readyState <> READYSTATE_COMPLETE Then
    Exit Function
  End If
   
Så har i den også

/Peik