如何使用 VBS 在 Windows 8 上打印多个 html 文件

Question

我有一个包含 1650 个 HTML 文件的文件夹，由于地方当局的原因，这些文件也必须以纸质形式打印。

我尝试过使用经典的 ctrl+A（即使我尝试的数量较少），然后我在右键菜单中寻找 PRINT 标签，但有。

如果我选择打印多个 jpg 或 pdf 文件，则会出现 PRINT 语音。

我应该如何打印多个 html 文件？批处理文件？ （我不知道怎么做）。

我也想过将 html 转换为 pdf，但使用 PDF Creator 和 PDF Architect 没有成功。

大家有什么经验可以分享吗？ 我写了一些混合了 Tim 给出的代码和我在 stackoverflow 上找到的代码，但没有成功。

这里是：

Set objFSO = CreateObject("Scripting.FileSystemObject")
  objStartFolder = "C:\Users\mainUser\Desktop\ft"

  Set objFolder = objFSO.GetFolder(objStartFolder)
  Set colFiles = objFolder.Files

  For Each objFile in colFiles
  strFileName = objFile.Name

  If objFSO.GetExtensionName(strFileName) = "html" Then

        On Error Resume Next

        Const OLECMDID_PRINT = 6
        Const OLECMDEXECOPT_DONTPROMPTUSER = 2
        Const PRINT_WAITFORCOMPLETION = 2

        Dim objExplorer
        Set objExplorer = CreateObject("InternetExplorer.Application")
        objExplorer.Navigate objFolder.Path +"\"+ objFile.Name
        objExplorer.Visible = 1

        Do while objExplorer.ReadyState <> 4
            WScript.Sleep 1000 'milliseconds
        Loop

        oIExplorer.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER

  End If

  Next

它只是在 Internet Explorer 中打开一个 html。我以为它会打开所有文件，并且已经处于打印“模式”。 我想我错过了什么。

Answer 1

请参阅此线程以循环浏览目录中的文件：How to do something to each file in a directory with a batch script

然后你可以使用原生的PRINT 命令，这样你的批处理文件就可以这么简单了：

for /f "delims=|" %%f in ('dir /b c:\') do PRINT %%f

---

根据以下cmets：

---

啊。然后你可能不得不自动化 IE 来打印页面。按照以下思路使用 VBScript：

Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Const PRINT_WAITFORCOMPLETION = 2

objStartFolder = "C:\Users\mainUser\Desktop\ft"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(objStartFolder)
Set objExplorer = CreateObject("InternetExplorer.Application")

Set oShell = CreateObject("Shell.Application")

For Each objFile In objFolder.Files
    strFileName = objFile.Name
    If objFSO.GetExtensionName(strFileName) = "html" Then
        handle = objExplorer.Hwnd
        objExplorer.Navigate objFolder.Path + "\" + objFile.Name

        For Each Wnd In oShell.Windows
            If handle = Wnd.Hwnd Then Set objExplorer = Wnd
        Next

        Do While objExplorer.Busy
            WScript.Sleep 1000 'milliseconds
        Loop

        objExplorer.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
    End If
Next
Set oShell = Nothing
Set objFSO = Nothing
Set objFolder = Nothing
Set objExplorer = Nothing

第三次更新：

我修复了上面的代码。我很抱歉。自从我使用 IE 以来已经有一段时间了。显然 IE 将每个选项卡视为 IE 的一个新实例，加载文档会“创建”一个新选项卡。因此，我们必须加载页面，然后再次找到我们的 IE 窗口，以便将其设置回变量。