Printing 如何打开网址,并使用batch/VB脚本打印页面?

Printing 如何打开网址,并使用batch/VB脚本打印页面?,printing,batch-file,Printing,Batch File,我不熟悉批处理脚本,请建议如何处理以下问题 我想加载一个网页,然后使用batch/VB脚本将该网页的两份副本打印到打印机上 谢谢。这里有一个vbscript可以完成这项工作。将站点变量更改为要打印的任何站点 'Print Webpage On Error Resume Next Dim oIE Dim NumPages Dim Site Const OLECMDID_PRINT = 6 Const OLECMDEXECOPT_DONTPROMPTUSER = 2 NumPages = 2

我不熟悉批处理脚本,请建议如何处理以下问题

我想加载一个网页,然后使用batch/VB脚本将该网页的两份副本打印到打印机上


谢谢。

这里有一个vbscript可以完成这项工作。将站点变量更改为要打印的任何站点

'Print Webpage
On Error Resume Next

Dim oIE 
Dim NumPages
Dim Site
Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

NumPages = 2
Site = "www.google.com"

Set oIE = CreateObject("InternetExplorer.Application")
oIE.Navigate Site
oIE.Visible = 1

Do while oIE.ReadyState <> 4
    wscript.sleep 1000
Loop

For x = 1 to NumPages
    oIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
Next
“打印网页”
出错时继续下一步
暗淡的爱
模糊的数字
暗点
常数d_PRINT=6
Const-ollecmdexecopt_dontprompuser=2
NumPages=2
Site=“www.google.com”
Set oIE=CreateObject(“InternetExplorer.Application”)
浏览网站
可见的oIE=1
当你准备好的时候去做
wscript.sleep 1000
环
对于x=1到NumPages
oIE.ExecWB OLECMDID_打印,OLECMDEXECOPT_dont打印机
下一个

感谢您提供了这个很好的示例,我已经尝试过了,您介意给我一些解释吗?例如:OLECMDID\U打印?非常感谢。这只是ExecWB的一个常数,等于6。这相当于在IE中单击文件|打印。这是带有解释的完整常量列表。