---

Hallo Leute,

ich habe gerade ein Progrämmchen geschrieben, bei dem ich ein Webbrowser-Control verwende, um die Ergebnisse schön formatiert auszugeben.
Das funktioniert soweit ganz gut, das webbrowser-Control lässt sich einfach befüllen, anzeigen und drucken. 

Jetzt hab ich aber ein Problem: Der Webbrowser wird zu beginn initialisiert mit .Navigate("about:blank").
Beim Ausdruck steht nun dieses "about.blank" immer in der Fußzeile.
Ich könnte das eventuell durch Änderung der Einstellung des Internet-Explorers unterdrücken. Da ich das Programm aber an viele Leute verteilen muss, ist das kein guter Weg. 

Beim googlen zum Thema "webbrowser-control Kopf-/Fußzeilen ändern" etc. bin ich immer wieder auf Lösungen gestoßen, die das Control mit webbrowser.execWB.... steuern.
Das Webbrowser-Control von VB.NET 2010 Express besitzt diese Methode aber gar nicht.    Und die meisten Dinge wie befüllen, drucken etc. lassen sich über einfachere Methoden und Eigenschaftszuweisungen sehr einfach nutzen.

Dann bin ich auf das "Microsoft Webbrowser Control" bzw. axWebbrowser gestoßen. Das besitzt die ExecWB-Methode- ich habe aber keine Ahnung, wie ich damit das Control füllen oder drucken kann. Die ganzen Parameter, die ich in diversen Foren finde, funtktionieren alle nicht.

Langer Rede kurzer Sinn:
Wie kann ich beim normalen, in VB.NET 2010 enthaltenen Webbrowser-Control die Kopf- und Fußzeilen anpassen?

Wenn das nicht geht, wie nutze ich das axWebbrowser-Control (Füllen, drucken, Kopf-/fußzeile anpassen..)?

Hat vielleicht jemand ne brauchbare Idee für mich?

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat... | Nasenheim 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus
Ich kenn nur den Weg über die Registry.

Die Seiteneinstellungen sind unter HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\PageSetup gespeichert.

Code:

---

Private Sub btPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btPrint.Click

        Dim pagesetupkey As Microsoft.Win32.RegistryKey
        Dim header As String
        Dim footer As String

        pagesetupkey = Microsoft.Win32.Registry.CurrentUser.OpenSubKey("Software").OpenSubKey("Microsoft").OpenSubKey("Internet Explorer").OpenSubKey("PageSetup", True)

        header = CStr(pagesetupkey.GetValue("header"))
        footer = CStr(pagesetupkey.GetValue("footer"))

        pagesetupkey.SetValue("header", "")
        pagesetupkey.SetValue("footer", "")

        WebBrowser1.Print()

        pagesetupkey.SetValue("header", header)
        pagesetupkey.SetValue("footer", footer)

    End Sub

---

Gruss Andreas

------------------
21 ist nur die halbe Antwort.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ahoi Henry,

das ist schon mal ein Teilerfolg 

Dummerweise wartet das Programm nicht auf den Drucker oder - bei mir - den Druckdialog, sondern läuft parallel dazu weiter.
D.h., bis der Druckprozess soweit ist, sind die Werte schon längst wieder zurückgesetzt.
Irgendwie muss ich das Programm solange anhalten, bis das Formular mit WebBrowser1.Print() bze. WebBrowser1.ShowPrintDialog() fertig ist.
Dann dürfen erst die ursprünglichen Werte mit SetValue("header", header)... wieder gesetzt werden.
Das kann ich natürlich mit einer einfachen Messagebox direkt nach dem Aufruf, aber das ist nicht wirklich schön.

Gibts ne Möglichkeit, den Programmablauf anzuhalten, bis der Hintergrundprozess "Drucken" abgewickelt ist?

------------------
Klaus

www.al-ko.com | mein Gästebuch | privat... | Nasenheim 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

(Aufwärm...)

Das Thema ist schon ein Weilchen her, aber ich habe immer noch keine brauchbare Lösung gefunden  

Aktuell erstelle ich meine Dokumente als RTF-Datei, in die ich mühsam und mehr schlecht als recht aktualisierte Grafiken und Tabellen einfüge. Das ganze ist sehr mühsam und unflexibel- nur ein Notbehelf.

Vielleicht kennt inzwischen jemand eine bessere Lösung?  

------------------
Klaus

http://www.alko-tech.com | mein Gästebuch

[Diese Nachricht wurde von KMassler am 27. Jun. 2019 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP