Printing Delphi

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