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. 隐藏快捷方式属性中的目标
2. “鲜为人知”的SendWindowMessage
3. OpenWrt配置he.net的6in4隧道访问IPv6
4. VBS创建系统服务
5. 此版本之魔兽争霸III需要特定语言版本之Windows

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