Распечатать страницу в TWebBrowser

Советы » Браузер » Распечатать страницу в 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

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

Категории

Статьи

Советы

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