Merge PDF Documents

To merge different PDF documents to one document requires only one function call in Aloaha. Encrypted documents are automatically decrypted in order to be able to merge the files!

Please find VBS and VB6 sample code below. Note that a valid evaluation license is required to try out these samples.

VBS Sample

dim pdf
dim files
dim retval

'comma seperated list of files to be merged
files="c:\1.pdf,c:\2.pdf,c:\3.pdf"

'create object
set pdf = createobject("aloahapdf.edit")

'Merge files to target file c:\4.pdf and overwrite target file in case it exists
retval=pdf.MergeListOfPDFDocumentsSTR(files, cstr("c:\4.pdf"), true)

'display amount of merged files
msgbox retval

set pdf = nothing

VB6 sample

For the sample below to work please create a reference to the aloahapdf edit in your VB6 workbench.

Private Sub Command1_Click()
   Dim dummy(0 To 2) As String
   Dim target As String
   Dim pdf As aloahapdf.edit

   Set pdf = New aloahapdf.edit
   dummy(0) = "c:\1.pdf"
   dummy(1) = "c:\2.pdf"
   dummy(2) = "c:\3.pdf"
   target = "c:\4.pdf"

   MsgBox pdf.MergeListOfPDFDocuments(dummy, target, True)
End Sub