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

Советы » Принтеры и Печать » Как производить Печать из 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)^

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

Другое по теме:

Категории

Статьи

Советы