HTML в PDF через VBA с использованием PDFCreator

Question

Я пытался автоматизировать PDFCreator с помощью VBA.

Можно ли автоматизировать создание PDF из файла HTML, открытого в IE?

Мой поиск в Интернете дал мне коды, которые работают в Excel или Word, но я действительно хочу, чтобы я ввел путь к файлу HTML в форму VBA, и она должна открыться, перейти в браузер и распечатать его в PDF.

Я знаю, как управлять PDFCreator с помощью VBA, но я не уверен, как связать IE с принтером PDFCreator.

Answer 1

Вы можете автоматизировать IE, чтобы он мог печатать документы на любом принтере, включая PDFCreator.
Вы также можете проверить этот блог , он показывает, как позволить PDFCreator пропустить диалог "сохранить". Я не эксперт по PowerShell, поэтому я не буду пытаться преобразовать это в VBA

'A function that uses IE to print the contents of Google.com to a PDF document
Sub printgoogle()
    Dim Explorer As Object
    Dim eQuery As Long 'return value type for QueryStatusWB
    Dim i As Integer
    Dim fTime As Single

    'See function below, to set the default printer to PDFCreator.  Note:  The user would probably be grateful if you checked to see what is the current default printer and set it back when finished printing
    SetDefaultPrinter "PDFCreator"

    'Connect to Internet Explorer
    Set Explorer = CreateObject("InternetExplorer.Application")
    'Open some document.  This is usually a file on your computer, but I use Google here for test purposes
    Explorer.Navigate "www.google.com"

TryAgain:
        'Wait for 2 seconds to let IE load the document
        fTime = Timer
        Do While fTime > Timer - 2
            DoEvents
        Loop
        eQuery = Explorer.QueryStatusWB(6)  'get print command status
        If eQuery And 2 Then
            Explorer.ExecWB 6, 2, "", ""   'Ok to Print? Then execute the Print (6) command, without displaying the print dialog (2)
            'Wait for 2 seconds while IE prints
            fTime = Timer
            Do While fTime > Timer - 2
                DoEvents
            Loop
        Else
            GoTo TryAgain
        End If

End Sub

'This function sets the Windows default printer to whatever printer you insert as parameter
Public Sub SetDefaultPrinter(ByVal printerName As String)
    Dim oSH As WshNetwork
    Set oSH = New WshNetwork
    oSH.SetDefaultPrinter printerName
    Set oSH = Nothing
End Sub