Есть два способа вывода на печать. Первый пример работает в IE 4.x и выше, в то время как второй пример расчитан на IE 3.x:
varvaIn, vaOut: OleVariant; ... WebBrowser.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
либо:
procedureTForm1.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)^