Und da bin ich schon wieder!
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. :]