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

ВИДЕОКУРС
выпущен 4 ноября!


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

БОЛЬШОЙ FAQ ПО DELPHI



Как производить Печать из WebBrowsera

Есть два способа вывода на печать. Первый пример работает в IE 4.x и выше, в то время как второй пример расчитан на IE 3.x:


 var
   vaIn, vaOut: OleVariant;
 ...
 WebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT,
 OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
 

либо:


 procedure TForm1.PrintIE;
 var
   CmdTarget : IOleCommandTarget;
   vaIn, vaOut: OleVariant;
 begin
   if WebBrowser1.Document <> nil then
     try
       WebBrowser1.Document.QueryInterface(IOleCommandTarget, CmdTarget);
       if CmdTarget <> nil then
         try
           CmdTarget.Exec( PGuid(nil), OLECMDID_PRINT,
                          OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
         finally
           CmdTarget._Release;
         end;
     except
       // nothing
     end;
 end;
 

Обратите внимание: Если версия Delphi ниже чем 3.02, то необходимо заменить


PGuid(nil)

на


PGuid(nil)^




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



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



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


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