title image


Smiley So geht's...
Mit WebBrowser Control:



Option Explicit

 

 

Private Sub Command1_Click()

    Dim txt As String

    WebBrowser1.Navigate "http://spotlight.de/zforen/mvb/m/mvb-1024042576-25772.html"

    Do

        DoEvents

    Loop While WebBrowser1.ReadyState <> READYSTATE_COMPLETE

    txt = WebBrowser1.Document.getElementsByTagName("html")(0).outerHTML

    If InStr(txt, "lokalzeitungen") Then printpage

End Sub

 

Private Sub printpage()

    Dim eQuery As OLECMDF       'return value type for QueryStatusWB

 

    On Error Resume Next

    eQuery = WebBrowser1.QueryStatusWB(OLECMDID_PRINT)  'get print command status

    If Err.Number = 0 Then

            If eQuery And OLECMDF_ENABLED Then

                WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, "", ""    'Ok to Print?

          Else

                MsgBox "The Print command is currently disabled."

            End If

    End If

    If Err.Number <> 0 Then MsgBox "Print command Error: " & Err.Description

End Sub





Code eingefügt mit Syntaxhighlighter 1.9
Moderation is OK, but not to excess...



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: