Delphi World - Распечатать страницу в TWebBrowser

Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...

Распечатать страницу в TWebBrowser

procedure TForm1.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 

procedure TForm1.Button3Click(Sender: TObject); 
var 
  vaIn, vaOut: OleVariant; 
begin 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, 
    vaIn, vaOut); 
end; 

// Print Preview 

procedure TForm1.Button4Click(Sender: TObject); 
var 
  vaIn, vaOut: OleVariant; 
begin 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, 
    OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut); 
end; 

// Page Setup Dialog 

procedure TForm1.Button5Click(Sender: TObject); 
var 
  vaIn, vaOut: OleVariant; 
begin 
  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, 
    vaIn, vaOut); 
end; 

// as of Internet Explorer 4