uses ShlDocVW;...procedure TForm1.Button1Click(Sender: TObject);var x: OLEVariant;begin WebBrowser1.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, x, x);end;