在Delphi中如何打印IE WebBrower控件的页面?(100分)

  • 主题发起人 主题发起人 amiaos
  • 开始时间 开始时间
A

amiaos

Unregistered / Unconfirmed
GUEST, unregistred user!
在Delphi中如何实现打印IE WebBrower控件的页面?
 
使用IE的打印方法:Document.all.print
 
打印:ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam);
打印预览:(ie5.5以上版本才有此功能)
if QueryStatusWB(OLECMDID_PRINTPREVIEW)=3 then
ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT, EmptyParam, EmptyParam);
页面设置:
ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT, EmptyParam,EmptyParam);
  
 
CathyEagle说的很对,只是在打印之前,要判断WEB BROWSE的BUSY是否为FALSE,
和ReadyState <> READYSTATE_COMPLETE
 
接受答案了.
 
后退
顶部