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. C语言中的round函数
  2. VBS中Property Set和Property Let的区别
  3. Raspberry Pi树莓派新系统SSH连接被拒绝的解决方法
  4. MS-DOS 7.1与GNU GPL协议
  5. 在Windows下编译zlib 1.25

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

  1. KIO说道:

    学习用google

  2. prophetk说道:

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

留下回复