Merge PDFs into single document using VBA

'http://www.excelguru.ca/forums/showthread.php?4733-merging-multiple-PDF-files-into-a-single-PDF-file-via-VBA-macro
Sub Test_PDFCreatorCombine()
  Dim fn(0 To 1) As String, s As String
  fn(0) = "x:\pdf\ken.pdf"
  fn(1) = "x:\pdf\ken2.pdf"
  s = "x:\pdf\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
' (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
Sub PDFCreatorCombine(sPDFName() As String, sMergedPDFname As String)
  Dim oPDF As PDFCreator.PdfCreatorObj, q As PDFCreator.Queue
  Dim pj As PrintJob
  Dim v As Variant, i As Integer
  Dim fso As Object
  
  Set fso = CreateObject("Scripting.FileSystemObject")
  
  Set q = New PDFCreator.Queue
  With q
    .Initialize
    If LBound(sPDFName) = 0 Then
      .WaitForJobs UBound(sPDFName) + 1, 1
      Else
      .WaitForJobs UBound(sPDFName), 1
    End If
  
    
    Set oPDF = New PDFCreator.PdfCreatorObj  'PDFCreator.clsPDFCreator
  
    i = 0
    For Each v In sPDFName()
      If fso.FileExists(v) Then oPDF.PrintFile v
      i = i + 1
    Next v
    .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
  
    .ReleaseCom
  End With
End Sub

Sub Test_PDFCreatorCombine()
  Dim fn(0 To 1) As String, s As String


  fn(0) = ThisWorkbook.Path & "\P1.pdf"
  fn(1) = ThisWorkbook.Path & "\P2.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

Sub Test_PDFCreatorCombine()
Dim fn(0 To 1) As String, s As String


fn(0) = "C:\Users\Anthony\Documents\temp\test1.pdf"
fn(1) = "C:\Users\Anthony\Documents\temp\test2.pdf"
s = "C:\Users\Anthony\Documents\temp\testoutput.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_COM.PdfCreatorObj, q As PDFCreator_COM.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_COM.Queue
With q
.Initialize


Set oPDF = New PDFCreator_COM.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