Code: Select all
Dim GdPicturePDFSrc As New GdPicture.GdPicturePDF
Dim GdPicturePDFDst As New GdPicture.GdPicturePDF
GdPicturePDFDst.NewPDF()
'Append pages of the first PDF
If GdPicturePDFSrc.LoadFromFile("c:\pdf1.pdf", False) = GdPictureStatus.OK Then
For i As Integer = 1 To GdPicturePDFSrc.GetPageCount
GdPicturePDFDst.ClonePage(GdPicturePDFSrc, i)
Next
End If
GdPicturePDFSrc.CloseDocument()
'Append pages of the second PDF
If GdPicturePDFSrc.LoadFromFile("c:\pdf2.pdf", False) = GdPictureStatus.OK Then
For i As Integer = 1 To GdPicturePDFSrc.GetPageCount
GdPicturePDFDst.ClonePage(GdPicturePDFSrc, i)
Next
End If
GdPicturePDFSrc.CloseDocument()
'Write the generated PDF
GdPicturePDFDst.SaveToFile("c:\mypdf.pdf")
GdPicturePDFDst.CloseDocument()