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

标签: , , , ,

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

知之为知之,不知 Google 之:

On Error Resume Next
Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
'Author: Demon
'Website: http://demon.tw
'Date: 2011/5/25
Dim oIExplorer
Set oIExplorer = CreateObject("InternetExplorer.Application")
oIExplorer.Navigate "http://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. 那些长的像UTF-8的GBK编码
  2. 用VBS检测U盘插入和弹出事件
  3. 没有main函数的C程序
  4. Turbo C 2.01官方下载
  5. JavaScript中的闭包(closures)

3 条评论 发表在“VBS调用IE对象直接打印网页”上

  1. KIO说道:

    学习用google

  2. prophetk说道:

    找过了 没找到 我只找到了webbroser里的打印方法

留下回复