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

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

Категории

Статьи

Советы

Copyright © 2022 - All Rights Reserved - www.delphirus.com