Print from web control in VB6 without prompting user:

Private Sub Command1_Click()
    Call Me.WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER)
End Sub

Private Sub Form_Load()
    Me.WebBrowser1.Navigate ("http://www.apple.com")
End Sub