VBS调用IE对象直接打印网页

问问题也要搞清楚对象吧，问一个用不起打印机的人怎么用 VBS 直接打印网页，和缘木求鱼有什么区别？人可以分为两种，会用 Google 的和不会用 Google 的。

知之为知之，不知 Google 之：

On Error Resume Next
Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
'Author: Demon
'Website: https://demon.tw
'Date: 2011/5/25
Dim oIExplorer
Set oIExplorer = CreateObject("InternetExplorer.Application")
oIExplorer.Navigate "https://demon.tw/"
oIExplorer.Visible = 1

Do While oIExplorer.ReadyState <> 4
    WScript.Sleep 1000
Loop
'所谓良好的编程习惯，把代码搞得那么长
'直接 oIExplorer.ExecWB 6, 2 不就完了
oIExplorer.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

参考链接：How to print a web page with VBA?

随机文章:

1. Python调用COM组件
2. VB6拾遗：轻量级COM对象
3. PowerISO 5.7 注册码
4. VBS文件拖拽的个数限制（无法执行 – 参数列表过长）
5. 用VBS实现PHP的md5_file函数

这篇文章发布于 2011年05月25日，星期三，13:48，归类于 程序设计。 您可以跟踪这篇文章的评论通过 RSS 2.0 feed。 您可以留下评论，或者从您的站点trackback。