ActiveX can't create object

Does anyone have a solution to the error message "ActiveX component can't create object"? This was working in the last 3 months. Here is a copy of the code:



    Set pdfjob = New PDFCreator.clsPDFCreator <--Error occurrs here
    With pdfjob
        If .cStart("/NoProcessingAtStartup") = False Then
            MsgBox "Can't initialize PDFCreator.", vbCritical + _
                    vbOKOnly, "PrtPDFCreator"
            Exit Sub
        End If
        .cOption("UseAutosave") = 1
        .cOption("UseAutosaveDirectory") = 1
        .cOption("AutosaveDirectory") = PDFPath
        .cOption("AutosaveFilename") = PDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
    End With

    'Print the document to PDF
    DoCmd.OpenReport ReportName, acViewNormal, , , acWindowNormal
    'Wait until the print job has entered the print queue
    Do Until pdfjob.cCountOfPrintjobs = 1
    pdfjob.cPrinterStop = False