Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 2 сентября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Распечатать страницу в 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
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS