User type not defined error trying to merge pdfs

[branston]

Hi

I am hoping someone can help me out here.

I am using some code (by the great Kenneth Hobs) and have pdf creator installed but getting 'user type not defined' error. I have played around with it for hours to no avail.

All I am trying to do is merge some pdf files into one pdf file. I have pdfcreator v2.5.3 installed and have checked the reference libraries for pdfcreator. The pdf files are in the same location as my excel file.

(I did try the same thing previously with adobe acrobat 6 installed and checked the relevant references but had the same problem hence going down the pdfcreator route.) I am wondering if there is something obvious I am missing. Can anyone help? TIA


This line is where the error is.Dim oPDF As PDFCreator.PdfCreatorObj, q As PDFCreator.Queue



I have the references added to the PDFCreator_COM and PDFCreatorApp 1.0 Type Library


Sub Test_PDFCreatorCombine()
Dim fn(0 To 1) As String, s As String
fn(0) = ThisWorkbook.Path & "\1.pdf"
fn(1) = ThisWorkbook.Path & "\2.pdf"
s = ThisWorkbook.Path & "\PDFCreatorCombined.pdf"

PDFCreatorCombine fn(), s

If vbYes = MsgBox(s, vbYesNo + vbQuestion, "Open?") Then Shell ("cmd /c " & """" & s & """")
End Sub

' Macro Purpose: Print to PDF file using PDFCreator v2.3.2, Kenneth Hobson, Oct. 8, 2016
' (Download from http://sourceforge.net/projects/pdfcreator/)
' COM interface, http://www.pdfforge.org/pdfcreator/manual/com-interface
' Designed for early bind, set reference to: PDFCreator - Your OpenSource PDF Solution
' sPDFName() assumed to be 0 index based string array.
Sub PDFCreatorCombine(sPDFName() As String, sMergedPDFname As String, _
Optional tfKillMergedFile As Boolean = True)
Dim oPDF As PDFCreator.PdfCreatorObj, q As PDFCreator.Queue
Dim pj As PrintJob
Dim i As Integer, ii As Integer
Dim fso As Object, tf As Boolean
Dim s() As String

On Error GoTo EndSub
Set fso = CreateObject("Scripting.FileSystemObject")
If tfKillMergedFile And fso.FileExists(sMergedPDFname) Then Kill sMergedPDFname

For i = 0 To UBound(sPDFName)
If fso.FileExists(sPDFName(i)) Then
ii = ii + 1
ReDim Preserve s(1 To ii)
s(ii) = sPDFName(i)
End If
Next i

Set q = New PDFCreator.Queue
With q
.Initialize

Set oPDF = New PDFCreator.PdfCreatorObj 'PDFCreator.clsPDFCreator
tf = .WaitForJobs(ii, 5) 'Wait 5 seconds for jobs to que

For i = 1 To UBound(s)
oPDF.AddFileToQueue s(i)
Next i
.MergeAllJobs

Set pj = q.NextJob
With pj
.SetProfileByGuid "DefaultGuid"
.SetProfileSetting "Printing.PrinterName", "PDFCreator"
.SetProfileSetting "Printing.SelectPrinter", "SelectedPrinter"
.SetProfileSetting "OpenViewer", "false"
.SetProfileSetting "OpenWithPdfArchitect", "false"
.SetProfileSetting "ShowProgress", "false"
.ConvertTo sMergedPDFname
End With
End With
EndSub:
If Not q Is Nothing Then q.ReleaseCom
End Sub
Thank you