用PDFCreator通过VBA实现HTML到PDF的转换

Question

我一直在尝试使用VBA自动化PDFCreator。

是否可以从IE中打开的HTML文件自动创建PDF？

我在网上搜索到的代码可以在Excel或Word中运行，但我真正想要的是输入一个指向VBA表单的HTML文件路径，它应该打开、浏览浏览器并将其打印为PDF。

我知道如何用VBA控制PDFCreator，但我不知道如何将IE链接到PDFCreator打印机。

Answer 1

您可以自动执行IE，使其可以将文档打印到任何打印机，包括PDFCreator。

您可能还想检查this blog，它显示了如何让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