Используйте Excel Visual Basic, чтобы открыть файлы в Internet Explorer, а затем распечатать их

Question

Я пытаюсь написать некоторый код VB в Excel, чтобы открыть один или несколько файлов документов, обычно PDF-файлов, в интернет-браузере, а затем заставить их печатать.

Несколько гиперссылок документа будут перечислены на листе, и код VB будет проходить по каждой из них, открывая ее.

Я могу заставить В.Б. открыть серию гиперссылок на документы ОК, каждое из которых открывается на отдельной вкладке в браузере. Но я не могу узнать, как заставить Excel печатать файлы в браузере. Можете ли вы предложить какой-нибудь код, чтобы заставить VB управлять печатью через Internet Explorer?

Answer 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

(3) Перечисление OLECMDEXECOPT