Stack Overflow

[kviral]

Hi Loic

I am merging multiple PDF Files into One, while saveaspdf(), i m getting error as stack overflow.

Code: Select all

Dim sFile As Integer
MergedFile = App.Path & "\stacked\"
    If (lstFiles.ListCount > 0) Then
        For sFile = 0 To lstFiles.ListCount - 1
            If (sFile = 0) Then
                GdViewer2.DisplayFromFile (lstFiles.List(sFile))
                Imaging2.SetNativeImage (GdViewer2.GetNativeImage)
                GdViewer2.CloseImage
                'MsgBox lstFiles.List(sFile)
            Else
                Imaging2.PdfAddImageFromFile (lstFiles.List(sFile))
            End If
        Next
        MergedFilePath = MergedFile + "Stacked_" & Format(Now(), "DDMMYYYYhhmmss") & ".pdf"
        Imaging2.SaveAsPDF (MergedFilePath)
    Else
        MsgBox "No File(s) loaded"
    End If

Please advice.

-Thanks,
Viral

[kviral]

Dear Loic,

Can you please tell me how to add PDF page to existing PDf file ?

-Thanks,
Viral

[Loïc]

Hi,

You have a comprehensive sample here: gdpicture-activex-code-samples/how-merge-pdf-files-t338.html

Loïc

[kviral]

Thanks Loic.