87,907
社区成员
发帖
与我相关
我的任务
分享打印网页时不弹出选择打印机页面
因需要重复打印当前页面，使用document.all.WebBrowser.Execwb(6,6)仍会弹出选择页面，请问如何解决，谢谢
...全文
请发表友善的回复…
发表回复
lthaoyue 2010-08-20
- 打赏
- 举报
我要做的是把当前页面循环打印，不过打印前要先将局部内容修改后再打印。因为使用javascript的document.all.WebBrowser.ExecWB(6,6)仍会然出选择打印机提示。这样的话要是打印上百张时点击太累了，不过问题我已经解决了。用vbscript可以解决，代码如下：Sub window_onunload
On Error Resume Next
Set WB = nothing
End Sub
Sub vbPrintPage ( x , y , z )
OLECMDID_PRINT = 6
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
On Error Resume Next
document.getElementById("WB").ExecWB x, y, z, 0
End Sub
希望对你也有帮助
On Error Resume Next
Set WB = nothing
End Sub
Sub vbPrintPage ( x , y , z )
OLECMDID_PRINT = 6
OLECMDEXECOPT_DODEFAULT = 0
OLECMDEXECOPT_PROMPTUSER = 1
OLECMDEXECOPT_DONTPROMPTUSER = 2
On Error Resume Next
document.getElementById("WB").ExecWB x, y, z, 0
End Sub
希望对你也有帮助
hoojo 2010-08-19
- 打赏
- 举报
是不弹出还是弹出啊？
如果是打印多页，在页面加分页标签即可多页打印http://blog.csdn.net/IBM_hoojo/archive/2010/06/17/5674779.aspx
