PDFCreator wil niet opstarten met Excel/VBA

Private Sub OpslaanPDF()                           ' Reglement/Updating omzetten naar en PDF
  Dim objWord, pdfjob As Object, objDoc As Object, TB As Workbook, sPDFName As String, PDFBestand As String, txt As String, strPrinter As String

  Set TB = ThisWorkbook
  sPDFName = IIf(PDFNaam = "", "GeenNaam", PDFNaam) & ".pdf"    ' als PDF Info niet bestaat dan GeenNaam

  If VlagPDF = "Update" Then sPDFPath = TB.Sheets("Control").Range("AI49")                ' Path waar PDF's opgeslagen wordt vorr de Updates
  If VlagPDF = "Reglement" Then sPDFPath = TB.Sheets("Control").Range("AI56")             ' Path waar PDF's opgeslagen wordt voor het Reglement
  If VlagPDF = "Uitleg" Then sPDFPath = TB.Sheets("Control").Range("AI59")                ' Path waar PDF's opgeslagen wordt voor het Reglement
  
  PDFBestand = sPDFPath & sPDFName              ' PDFBestand = sPDFPath + sPDFName + extensie (.pdf)
  Set objDoc = GetObject(WrdPDFNaam)            ' verwijzing naar GetObject zijnde [PDFBestand = sWrdPath + sWrdName + extensie]
  Set objWord = objDoc.Application              ' haal het doel van Microsoft Word-applicatie object
  objWord.Visible = True                        ' maak de MS Word zichtbaar
  
  [COLOR="#FF0000"]Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")[/COLOR]     ' objectverwijzing naar pdfjob
  If Dir(PDFBestand) <> "" Then                             ' als PDF file (PDFBestand) al bestaat
    txt = MsgBox("Het bestand: " & PDFBestand & " bestaat al !" & vbCrLf & "Wilt u deze overschrijven ?", vbYesNo, "Check File")
    If txt <> vbYes Then objWord.Application.Quit wdDoNotSaveChanges: Exit Sub  ' sluit het document en Word af zonder saved changes
  End If
  With pdfjob
    If .cStart("/NoProcessingAtStartup") = False Then   ' als pdfjob niet wil starten
      MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"
      Exit Sub
    End If
    .cOption("UseAutosave") = 1                         ' gebruik AutoSave aan ???
    .cOption("UseAutosaveDirectory") = 1                ' gebruik AotoSave Directory aan ???
    .cOption("AutosaveDirectory") = sPDFPath            ' locatie waar PDF file wordt opgeslagen
    .cOption("AutosaveFilename") = sPDFName             ' naam waaronder PDF file wordt opgeslagen
    .cOption("AutosaveFormat") = 0                      ' 0 = PDF
    .cClearCache
  End With
  
  objWord.ActivePrinter = "PDFCreator"
  objDoc.PrintOut                                       ' Print the document to PDF
  Do Until pdfjob.cCountOfPrintjobs = 1                 ' Wait until the print job has entered the print queue
    DoEvents
  Loop
  pdfjob.cPrinterStop = False
  Do Until pdfjob.cCountOfPrintjobs = 0                 ' Wait until PDF creator is finished then release the objects
    DoEvents
  Loop
  pdfjob.cClose
  Set pdfjob = Nothing
  strPrinter = ActiveWorkbook.Worksheets("Control").Range("AI8") & " " & ActiveWorkbook.Worksheets("Control").Range("AM8")  ' leest standaard printer in
  objWord.ActivePrinter = strPrinter
  objWord.Application.Quit wdDoNotSaveChanges           ' sluit het WORD document en WORD af zonder saved changes
  Set objWord = Nothing
End Sub

Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")     ' objectverwijzing naar pdfjob