oGdPictureImaging.TiffAddToMultiPageFile(TiffImageID, imageid). I'm using the latest build from the site (6.3.0.1) for framework 2
Code: Select all
Public Function pdftomultipagetiff2() As Boolean
Dim imageid As Long
Dim TiffImageID As Long
oGdViewer.DisplayFromFile(sInFilename)
If oGdViewer.GetDocumentType = GdPicture.DocumentType.DocumentTypePDF Then
For I As Integer = 1 To oGdViewer.PageCount
imageid = oGdViewer.PdfRenderPageToGdPictureImage(200, I)
If I = 1 Then
TiffImageID = imageid
oGdPictureImaging.TiffSaveAsMultiPageFile(TiffImageID, "c:\output.tif", GdPicture.TiffCompression.TiffCompressionJPEG)
Else
oGdPictureImaging.TiffAddToMultiPageFile(TiffImageID, imageid)
oGdPictureImaging.ReleaseGdPictureImage(imageid)
End If
Next I
oGdPictureImaging.TiffCloseMultiPageFile(TiffImageID)
End If
End Function
End Class