TWebBrowser

[ara_prg]

چطور میشه صفحه جاری TWebBrowser را چاپ کرد :?:

[Delphi-Clinic]

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('http://www.barnamenevis.org');
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_PRINT PREVIEW,
OLECMDEXECOPT_DONTPROMPTUSER, vaIn, vaOut);
end;

// Page Setup Dialog


procedure TForm1.Button5Click(Sender: TObject);
var
vaIn, vaOut: OleVariant;
begin
WebBrowser1.ControlInterface.ExecWB(OLECMDID_PAGES ETUP, OLECMDEXECOPT_PROMPTUSER,
vaIn, vaOut);
end;

[ara_prg]

آقا خیلی ممنون :flower: