Imprimer une page d'un TWebbrowser

procedure TForm1.Button1Click(Sender: TObject);
var
vaIn,
vaOut: OleVariant;
begin
WebBrowser1.Navigate('http://www.google.com');
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;