Convert Single And Multipage TIFF to PDF/A

[Loïc]

Code: Select all

      Dim oGdPictureImaging As New GdPicture.GdPictureImaging
      Dim imageID As Integer = oGdPictureImaging.CreateGdPictureImageFromFile("C:\MyTiff.TIF")
      If imageID <> 0 Then
         Dim oGdPicturePDF As New GdPicturePDF
         oGdPicturePDF.NewPDF(True) ' set False to create non PDF/A
         oGdPicturePDF.AddImageFromGdPictureImage(imageID, False, True) 'Adds the first page
         If oGdPictureImaging.TiffGetPageCount(imageID) > 1 Then
            For i As Integer = 2 To oGdPictureImaging.TiffGetPageCount(imageID)'Adds other pages, if any
               oGdPictureImaging.TiffSelectPage(imageID, i)
               oGdPicturePDF.AddImageFromGdPictureImage(imageID, False, True)
            Next
         End If
         oGdPictureImaging.ReleaseGdPictureImage(imageID)
         oGdPicturePDF.SaveToFile("c:\mypdf.pdf")
         oGdPicturePDF.CloseDocument()
      End If

[clocklear]

Do you have to have a license for the PDF addon for this to work?