我要在DELPHI中打印WEB BROWSER控件中的网页,需要能用程序设置横向/纵向,A3/A4,打印份数等,各位大虾多多帮忙啦,愿意把最后的60分送上!!!不够可以去另外的帖子拿分,吐血求解!!!
解决方案 »
- 拖放在窗体上的组件在FormCreate被创建 如果创建失败我怎么捕获?
- 我想把“3HS431GT”这串字符串经过变化变成数字格式的怎么弄呀?
- 又有一小小问题要麻烦大家啦!
- 为什么delphi6的qreport不能调整打印线的宽度,在线等候,答对给50分
- 刚刚搞定DCOM的配置问题,客户断程序运行成功,高兴。。。有谁想问DCOM的配置的,今天尽管提问,过期作废!!!
- 请教一个SQL语句
- CopyFileTo函数怎样使用
- delphi 程序里有一个方法,方法里面的算法比较复杂,计算起来时间比较长,我想把这个方法单独放到一个线程里去执行,请问是怎么写?一点头绪没有啊,谢谢
- 哪儿有帮助文件反编译工具?
- 没有主索引只有次索引而且也设了次索引的表是不是会不能进入编辑状态?虽然能进行排序,但无法进行操作,总是index is read only!!!!请回答,能帮我解决的愿给50分。
- 如何编程设置使用dhcp而不用static ip
- 程序报错说无法装载midas.dll,怎么办?
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;