Und da bin ich schon wieder!
Ich will den Inhalt der oben genannten Komponente ausdrucken. Dazu habe ich im Button folgenden Code-Teil:

zusammenfalten · markieren

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. :]

Du mußt dem Control die möglichkeit geben die Seite auch zu laden (OnDocumentComplete-Event).