GdPicture Imaging Forums

Code: Select all

Public Function PDFtoMultipageTiff() As Boolean
        Dim ImageID As Integer
        Dim TiffImageID As Integer
        oGdViewer.DisplayFromFile(sInFilename)

        For I As Integer = 1 To oGdViewer.PageCount
            ImageID = oGdViewer.PdfRenderPageToGdPictureImage(300, I)

            oGdPictureImaging.ConvertTo1Bpp(ImageID)

            'oGdPictureImaging.ConvertTo1BppFast(ImageID)

            If I = 1 Then
                TiffImageID = ImageID
                oGdPictureImaging.TiffSaveAsMultiPageFile(TiffImageID, sOutFilename, GdPicture.TiffCompression.TiffCompressionCCITT4)
            Else
                oGdPictureImaging.TiffAddToMultiPageFile(TiffImageID, ImageID)
                oGdPictureImaging.ReleaseGdPictureImage(ImageID)
            End If

        Next I
        oGdPictureImaging.TiffCloseMultiPageFile(TiffImageID)
        oGdViewer.CloseDocument()
    End Function

End Class