使用.vbs文件打印html文件

时间:2014-05-22 07:01:21

标签: html vba printing

我正在尝试使用vb脚本打印html文件。

文件管理是D:\VbFiles\Test.html

 Set WebBrowser1 = CreateObject("InternetExplorer.Application")

 WebBrowser1.Navigate "D:\VbFiles\Test.html"
 WebBrowser1.Visible = 1

我使用上面的代码创建了test.vbs文件,当我双击该文件时,我能够使用指定的html文件打开IE,但不知道如何在这里使用print方法。

请建议

先谢谢 沙

1 个答案:

答案 0 :(得分:0)

我在这里找到了解决方案:Source

我从上面的链接中得到你需要的东西。

Const OLECMDID_PRINT = 6

Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Const PRINT_WAITFORCOMPLETION = 2

Const OLECMDF_SUPPORTED = 1

Const OLECMDF_ENABLED = 2

blnPrintingComplete = False

Set objIE = WScript.CreateObject("InternetExplorer.Application", "IE_")

objIE.Visible = False

objIE.Navigate "C:\Users\Me\Desktop\test.html"


Do While objIE.ReadyState <> 4

   WScript.Sleep 10

Loop

If objIE.QueryStatusWB(OLECMDID_PRINT) = OLECMDF_SUPPORTED + OLECMDF_ENABLED Then

   objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,PRINT_WAITFORCOMPLETION, 0

   Do While Not blnPrintingComplete

       WScript.Sleep 50

   Loop

End If


objIE.Quit