Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ausdruck von Web-Seiten
Autor: Moni (Moderator)
Datum: 13.10.01 17:35
Hi, habe leider mit dem Ausdrucken von Web-Seiten schon wieder ein Problem. Auf meiner Form befinden sich eine Combo-Box und ein Webbrowser-Steuerelement. Bei Start des Programmes werden verschiedene Internetadressen in die Combo-Box geladen. Nach Auswahl einer Adresse wird die Verbindung hergestellt, die Seite angezeigt und ausgedruckt. Soweit habe ich das jetzt hinbekommen. Das Problem besteht darin, dass ich bei einem Teil der Adressen auf eine paßworgeschützte Seite weitergehen muss. Über eine Anweisung If - Then - SendKeys funktioniert auch das - allerdings nur dann, wenn ich es nicht automatisch ausdrucke. Ich vermute, dass ich diese If -Then Anweisung an der falschen Stelle habe. Nachdem ich jetzt ein paar Stunden versucht habe, das hinzubekommen, weiß ich nicht mehr weiter. Nchstehend die Struktur: Private Sub URL_Load(ByVal sURL As String) With WebBrowser1 .Tag = "Load" .Navigate sURL While .Tag <> "" DoEvents Wend End With If sURL = "http://wbag.webfactory.apa.at/wbag/portfolio/login.html" Then SendKeys "{TAB 2}xyz{TAB}abc{TAB}{ENTER}" End If If sURL = "http://www.bourse-de-paris.fr/defaultgb.htm" Then SendKeys "{TAB 7}abc{TAB}xyz{TAB}{ENTER}" End If WebBrowser1.SetFocus WebBrowser1.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER Könnt ihr mir sagen was falsch ist? DANKE cu Moni

Ausdruck von Web-Seiten	541	Moni	13.10.01 17:35
Testen können wir das schlecht, aber:	452	unbekannt	13.10.01 17:47
Nein geht nicht	338	Moni	13.10.01 17:53
Korrekt - Zeitproblem	377	Dieter	13.10.01 18:02
Re: Nein geht nicht	361	unbekannt	13.10.01 18:03
Re: Nein geht nicht	362	Moni	13.10.01 18:16
Ha! Geht doch!!!	366	Moni	13.10.01 22:11

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen