procedureTForm1.Button1Click(Sender: TObject); begin
WebBrowser1.Navigate('http://www.SwissDelphiCenter.com'); end
; // Print without Printer Dialog procedure
TForm1.Button2Click(Sender: TObject); var
vaIn, vaOut: OleVariant; begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut); end
;
// Print with Printer Dialog procedureTForm1.Button3Click(Sender: TObject); var
vaIn, vaOut: OleVariant; begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut); end
;
// Print Preview procedureTForm1.Button4Click(Sender: TObject); var
vaIn, vaOut: OleVariant; begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut); end
;
// Page Setup Dialog procedureTForm1.Button5Click(Sender: TObject); var
vaIn, vaOut: OleVariant; begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, vaIn, vaOut); end
;
// as of Internet Explorer 4