User type not defined error!

[merveak]

I use VBA code to create and save pdf file however I receive error :"user type not defined "

The highlighted line like the following;
Dim pdfjob As PDFCreator.clsPDFCreator

PDF creator is already set as a reference. The code works on another computer with Excel 2003, however not working on my computer (excel 2013).

Any help is appreciated!

Sub PrintToPDF_Early()
'Author       : Ken Puls ([URL="http://www.excelguru.ca"]Excelguru Help Site - Welcome[/URL])
'Macro Purpose: Print to PDF file using PDFCreator
'   (Download from [URL="http://sourceforge.net/projects/pdfcreator/"]PDFCreator | SourceForge.net[/URL])
'   Designed for early bind, set reference to PDFCreator
 
    Dim pdfjob As PDFCreator.clsPDFCreator
    Dim sPDFName As String
    Dim sPDFPath As String

    '/// Change the output file name here! ///
    If UserForm1.TextBox4.Text <> "" Then
    sPDFName = "AKSAN" & "_" & UserForm1.TextBox4.Text & "_" & UserForm1.TextBox7.Text & "_" & UserForm1.TextBox5.Text & "_" & UserForm1.tarih11.Text & ".pdf"
    Else
    sPDFName = "AKSAN" & "_" & UserForm1.ComboBox6.Text & "_" & UserForm1.TextBox7.Text & "_" & UserForm1.TextBox5.Text & "_" & UserForm1.TextBox5.Text & "_" & UserForm1.tarih11.Text & ".pdf"
    nlef = Left(sPDFName, 4)
nrig = Left(sPDFName, 4)
    End If
    
    
    sPDFPath1 = ActiveWorkbook.Path & "\giden\"
    sPDFPath = ActiveWorkbook.Path & "\bugun\" '"C:\Documents and Settings\ksy05\Desktop\ramo\bugun\"
'/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/
  
'/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/
    'Check if worksheet is empty and exit if so
    If IsEmpty(ActiveSheet.UsedRange) Then Exit Sub

    Set pdfjob = New PDFCreator.clsPDFCreator

    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") = sPDFPath
        
        
        .cOption("AutosaveFilename") = sPDFName
        .cOption("AutosaveFormat") = 0    ' 0 = PDF
        .cClearCache
    End With
 

    'Print the document to PDF
    Sheets("form").PrintOut copies:=1, ActivePrinter:="PDFCreator"

    'Wait until the print job has entered the print queue
    Do Until pdfjob.cCountOfPrintjobs = 1
        DoEvents
    Loop
    pdfjob.cPrinterStop = False

    'Wait until PDF creator is finished then release the objects
    Do Until pdfjob.cCountOfPrintjobs = 0
        DoEvents
    Loop
    pdfjob.cClose
    Set pdfjob = Nothing
End Sub

 

[RoryA]

If the correct reference is set (and isn't flagged as MISSING) then you shouldn't get that error. Do you have PDF Creator installed on both machines?

 

[Andrew Poulsom]

Welcome to MrExcel.

Have you tried late binding?

Excelguru Help Site - Printing Worksheets To A PDF File (Using Late Binding)

In Excel 2013 printing to PDF is native using ExportAsFixedFormat.

 

[merveak]

Yes it is installed on both machines.

On my machines it is flagged as "PDF Creator-Your OpenSource Pdf Solution", on other computer it is flagged as "PDF Creator". Does it make any difference?

 

[RoryA]

That would tend to suggest that it is not exactly the same reference. It may be that the class has changed - did you try Andrew's suggestion?

 

[merveak]

That would tend to suggest that it is not exactly the same reference. It may be that the class has changed - did you try Andrew's suggestion?

Yes. this time another error appeared "sub or function not defined"

related row is ;

Call PrintToPDF_Early

 

[Andrew Poulsom]

The procedure in the link I posted was named PrintToPDF_Late.

 

[merveak]

The procedure in the link I posted was named PrintToPDF_Late.

Sorry, I copied the code from attached post to my workbook.
Now received another error: run time error 429
problem is the following row;
Set pdfjob = CreateObject("PDFCreator.clsPDFCreator")

 

[Andrew Poulsom]

Maybe the name of the class has changed. Can you see it in the Object Browser?

 

[merveak]

Maybe the name of the class has changed. Can you see it in the Object Browser?

Correct. I have found out that clspdfcreator is no more valid, instead PDFCreatorObj is used

Migrating from PDFCreator 1.7 to 2.0 — PDFCreator 2.1 documentation

I am not familiar with VBA coding, will try to find a new code.

Thanks anyway!