browser probs...

[VBarak]

hey guys....two things:
1)give me a source code for printing the page the user is surfing on ...please
2)i have a list of sites i want to block and a combo for the adress.
please give me a source code of how i can do combo.text=list.text because i don't know what to do...the list has alot of values and i need to check every line...kinda of seraching the list until it findes combo.text....
help me please!
thanks
VBarak

[James Stanich]

Issue 1 :

Sub PRINTROUTINE()
    
    On Error Resume Next
    
    Dim eQuery As OLECMDF
    
    eQuery = Me.brwWebBrowser.QueryStatusWB(OLECMDID_PRINT)
    
    If Err.Number = 0 Then
        
        If eQuery And OLECMDF_ENABLED Then
            
            Me.brwWebBrowser.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, "", ""
        
        Else
            
            MsgBox "Printer Not Found or No Contents in Webbrowser"
        
        End If
    
    End If
 
End Sub