Merging PDFs

[Loïc]

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()


[Loïc]

The same approach to merge PDF/A into PDF/A

Code: Select all

          Dim GdPicturePDFSrc As New GdPicture.GdPicturePDF
          Dim GdPicturePDFDst As New GdPicture.GdPicturePDF

          GdPicturePDFDst.NewPDF(True)

          '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()