Как распечатать страницу из браузера?

WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

Private Sub Form_Load()
    Me.Caption = 'Loading HTML...'
    WebBrowser1.Navigate 'D:......somefile.html'
End Sub
'
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Me.Caption = Me.Caption & ' Done. Printing...'
    WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
End Sub

   Private Sub cbShowIE_Click()
     Set Explorer = New SHDocVw.InternetExplorer
     Explorer.Visible = True
     Explorer.Navigate 'D:/MyFile.htm'
   End Sub

    Private Sub cmdPrint_Click()
      WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
    End Sub

   Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
     cmdPrint.Enabled = True
   End Sub

    Private Sub Form_Load()
       WebBrowser1.Navigate 'D:MyFile.htm'
    End Sub

Private Sub cbShowIE_Click()   
Set Explorer = New SHDocVw.InternetExplorer   
Explorer.Visible = True   
Explorer.Navigate 'D:/MyFile.htm'  
End Sub

Private Sub cmdPrint_Click()
        On Error GoTo ErrorHandler
L1:
        If Not Explorer.Visible Then Explorer.Visible = True
    Explorer.Navigate 'D:MyFile.htm'
    Explorer.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER
        Exit Sub
ErrorHandler:
    Set Explorer = Nothing
    Set Explorer = New SHDocVw.InternetExplorer
    GoTo L1
End Sub