江湖救急：Delphi中怎么打印HTML网页？

Question

我要在DELPHI中打印WEB BROWSER控件中的网页，需要能用程序设置横向/纵向，A3/A4，打印份数等，各位大虾多多帮忙啦，愿意把最后的60分送上！！！不够可以去另外的帖子拿分，吐血求解！！！

Answer 1

WebBrowser1.ExecWB(OLECMDID_PRIN,OLECMDEXECOPT_PROMPTUSER);

Answer 2

这个方法只能利用WebBrowser打印出来，却没有办法设置页面横向/纵向，A3/A4，打印份数等

Answer 3

http://delphi.about.com/cs/adptips2004/a/bltip0504_5.htm// print directly without printer dialog
procedure WBPrintNoDialog(WB: TWebBrowser) ;
var
   vIn, vOut: OleVariant;
begin
   WB.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER, vIn, vOut) ;
end;//call the printer dialog
procedure WBPrintWithDialog(WB: TWebBrowser) ;
var
   vIn, vOut: OleVariant;
begin
   WB.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER, vIn, vOut) ;
end;// Print Preview
procedure WBPrintPreview(WB: TWebBrowser) ;
var
   vIn, vOut: OleVariant;
begin
   WB.ControlInterface.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DONTPROMPTUSER, vIn, vOut) ;
end;//Call page setup dialog
procedure WBPrintPageSetup(WB: TWebBrowser) ;
var
   vIn, vOut: OleVariant;
begin
   WB.ControlInterface.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_PROMPTUSER, vIn, vOut) ;
end;

Answer 4

aiirii(ari-爱的眼睛)，我要的就是不用弹出PAGESETUP框而直接用程序设置到页面属性……