Dateien in PDF umwandeln

Set PDFCreator = Wscript.CreateObject("PDFCreator.clsPDFCreator", "PDFCreator_")  
PDFCreator.cStart "/NoProcessingAtStartup"  
For i = 0 to objArgs.Count - 1
  With PDFCreator
    ifname = objArgs(i)
    If Not fso.FileExists(ifname) Then
      MsgBox "Can't find the file: " & ifname, vbExclamation + vbSystemModal, AppTitle  
      Exit For
    End If
    .cConvertFile ifname, CompletePath(fso.GetParentFolderName(ifname)) & fso.GetBaseName(ifname) & ".pdf"  
  End With
Next

Const jpgPath = "E:\Test\Bilder"  

Const pdfName = "Test.pdf"  
Const pdfPath = "E:\Test\Bilder\"  

Dim Fso, File, pdfJob, jobCount

Set Fso = CreateObject("Scripting.FileSystemObject")  
Set pdfJob = CreateObject("PDFCreator.clsPDFCreator")  

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

With pdfJob
    .cOption("UseAutosave") = 1  
    .cOption("UseAutosaveDirectory") = 1  
    .cOption("AutosaveDirectory") = pdfPath  
    .cOption("AutosaveFilename") = pdfName  
    .cOption("AutosaveFormat") = 0  'Pdf-Format  
    .cClearCache
End With

jobCount = 0
    
For Each File In Fso.GetFolder(jpgPath).Files
    If LCase(Fso.GetExtensionName(File.Name)) = "jpg" Then  
        pdfJob.cAddPrintjob File:  jobCount = jobCount + 1
    End If
Next
    
If jobCount Then
    With pdfJob
         Do Until .cCountOfPrintjobs = jobCount:  Loop
        .cCombineAll
        .cPrinterStop = False
    End With
    
    Do Until Fso.FileExists(pdfPath & pdfName):  Loop
End If
    
pdfJob.cClose

For Each File In Fso.GetFolder(xlsPath).Files
    If LCase(Fso.GetExtensionName(File.Name)) = "xls" Then  
        Set Wkb = GetObject(File)

        For Each Wks In Wkb.Worksheets
            Wks.PrintOut , , 1, , "PDFCreater":  jobCount = jobCount + 1  
        Next

        Wkb.Close False
    End If
Next