VBA Code in Access 2010 zur Aufruf einer Internetseite und automatischen Druck der Seite als PDF Datei

Option Explicit

Const PdfPath = "C:\Auktionen"  
 
Const PDF_FORMAT = 0
Const PDF_AUTOSAVE = 1
Const PDF_AUTOSAVEDIRECTORY = 1
Const OLECMDID_PRINT = 6
Const OLECMDEXECOPT_DONTPROMPTUSER = 2
Const READYSTATE_COMPLETE = 4

Sub Test()
    Call PrintToPdfCreater("[content:176881]  
End Sub


Sub PrintToPdfCreater(ByVal Url As String)
    Dim WMIService As Object, Printers As Object, Printer As Object, PdfJob As Object
    Dim IExplorer As Object, Network As Object, DefaultPrinter As String
        
    Set PdfJob = CreateObject("PDFCreator.clsPDFCreator")  

    If PdfJob.cStart("/NoProcessingAtStartup") = False Then  
        MsgBox "PDFCreator konnte nicht gestartet werden!", vbExclamation, "Fehler":  Exit Sub  
    End If

    With PdfJob
        .cOption("UseAutosave") = PDF_AUTOSAVE  
        .cOption("UseAutosaveDirectory") = PDF_AUTOSAVEDIRECTORY  
        .cOption("AutosaveDirectory") = PdfPath  
        .cOption("AutosaveFilename") = Url  
        .cOption("AutosaveFormat") = PDF_FORMAT  
        .cClearCache
    End With
    
    Set Network = CreateObject("WScript.Network")  
    Set WMIService = GetObject("winmgmts:\\" & "." & "\root\cimv2")  
    
    Set Printers = WMIService.ExecQuery("Select * From Win32_Printer Where Default = True")  
    
    For Each Printer In Printers
        DefaultPrinter = Printer.Name
    Next
    
    Network.SetDefaultPrinter "PDFCreater"  
    
    Set IExplorer = CreateObject("InternetExplorer.Application")  
    
    With IExplorer
        .Visible = False
        .Navigate Url
         Do: Loop Until .ReadyState = READYSTATE_COMPLETE
        .ExecWB OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER
    End With
  
    With PdfJob
         Do Until .cCountOfPrintjobs = 1:  Loop
        .cPrinterStop = False
         Do Until .cCountOfPrintjobs = 0:  Loop
        .cClose
    End With
    
    IExplorer.Quit
    
    Network.SetDefaultPrinter DefaultPrinter
End Sub