Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi TWebBrowser drucken - Falsche Datei/CSS fehlinterpretiert (https://www.delphipraxis.net/116008-twebbrowser-drucken-falsche-datei-css-fehlinterpretiert.html)

Svenkan 21. Jun 2008 17:46


TWebBrowser drucken - Falsche Datei/CSS fehlinterpretiert
 
Liste der Anhänge anzeigen (Anzahl: 1)
Und da bin ich schon wieder! :D
Ich will den Inhalt der oben genannten Komponente ausdrucken. Dazu habe ich im Button folgenden Code-Teil:

Delphi-Quellcode:
(.....)
  regist:=TRegistry.Create;
  try
    regist.RootKey:=HKEY_CURRENT_USER; //voreingestellt ist HKEY_CURRENT_USER
    regist.OpenKey('SOFTWARE\Microsoft\Internet Explorer\PageSetup',true);
      //bei true wird Schlüssel erzeugt, wenn er noch nicht existiert
    reg_footer:=regist.ReadString('footer');
    reg_header:=regist.ReadString('header');
    regist.DeleteKey('footer');
    regist.DeleteKey('header');
    regist.WriteString('header', 'Seite &p/&P');
  finally
    regist.Free;
  end;

 Browser.Navigate(vplan_path+ordner+'\'+prefix+tag+'.htm');
 PrintWebBrowser(Browser);

 regist:=TRegistry.Create;
  try
    regist.RootKey:=HKEY_CURRENT_USER; //voreingestellt ist HKEY_CURRENT_USER
    regist.OpenKey('SOFTWARE\Microsoft\Internet Explorer\PageSetup',true);
      //bei true wird Schlüssel erzeugt, wenn er noch nicht existiert
    reg_footer:=regist.ReadString('footer');
    reg_header:=regist.ReadString('header');
    regist.WriteString('footer', '');
    regist.WriteString('header', 'Seite &p/&P');
  finally
    regist.Free;
  end;
(.......)
Nun tritt das Problem auf, dass immer die Seite gedruckt wird, die vor dem Öffnen zu druckenden Datei geöffnet war! Und das ist tierisch nervig! Zudem wird das CSS völlig fehlinterpretiert, wie man an meinem Beispiel sehen kann! (hier das HTML-Gegenstück: http://svenkan.sv.ohost.de/delphi/vplan/vplan_Mo.htm)

PS: Die Funktion zum Drucken habe von hier.

/Edit: pBear hats gerichtet. :]

Bernhard Geyer 21. Jun 2008 21:31

Re: TWebBrowser drucken - Falsche Datei/CSS fehlinterpretier
 
Du mußt dem Control die möglichkeit geben die Seite auch zu laden (OnDocumentComplete-Event).


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz