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. VBS显示桌面
2. 微软NLS文件格式
3. 3DS导出正版卡带存档并导入到CIA
4. NDS上的SFC模拟器SNEmulDS
5. 使用正确版本的XMLHTTP

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