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