Inhalt des aktuellen Tabsheet drucken?

[toms]

Also in meinem Demo wird all das gezeigt...

aber so sollte es auch funktionieren:

Delphi-Quellcode:

var 
  vaIn, vaOut: OleVariant; 
begin 
  (PageControl1.ActivePage.Controls[0] as TWebBrowser).ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, 
    vaIn, vaOut);