使用 Excel Visual Basic 在 Internet Explorer 中打开文件，然后打印它们

【问题标题】：Use Excel Visual Basic to open files in Internet Explorer, then print them使用 Excel Visual Basic 在 Internet Explorer 中打开文件，然后打印它们
【发布时间】：2019-04-02 01:12:57
【问题描述】：

我正在尝试在 Excel 中编写一些 VB 代码，以在 Internet 浏览器中打开一个或多个文档文件，通常是 PDF，然后使浏览器打印它们。

工作表中将列出几个文档超链接，VB 代码将逐个遍历并打开它。

我可以让 VB 打开一系列指向文档的超链接，每个都在浏览器的自己的选项卡中打开。但我不知道如何让 Excel 使浏览器打印文件。你能推荐一些代码来让 VB 驱动 Internet Explorer 的打印吗？

【问题讨论】：

请包含您的代码并在此处查看我的答案：stackoverflow.com/a/52906215/6241235

标签： excel vba pdf internet-explorer printing

【解决方案1】：

您可以尝试参考下面的示例。

Option Explicit

Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 1
Const PRINT_WAITFORCOMPLETION = 2
 
Sub Sample()
 Dim objIE
 
 Set objIE = CreateObject("InternetExplorer.Application")
 
 objIE.navigate "http://www.Microsoft.com/"
 objIE.Visible = 1
 
 Do While objIE.readyState <> 4
  DoEvents
 Loop
 
 objIE.ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
End Sub

此外，您可以尝试根据您的要求修改代码。

参考资料：

(1)IWebBrowser2::ExecWB Method

(2)OLECMDID Enumeration

(3)OLECMDEXECOPT Enumeration

【讨论】：