I have read through all the documentation and looked at all the sample code, but can not seem to figure out how to draw text to individual pages of a multipage tiff image. Any help would be appreciated.
Thanks
Dim i As Integer
Dim TiffImageID As Integer
Dim PageCount As Integer
Dim oGdPictureImaging As New GdPictureImaging
oGdPictureImaging.SetLicenseNumber("XXX") 'Replace XXX by a valid demo or commercial license key
TiffImageID = oGdPictureImaging.TiffCreateMultiPageFromFile("input.tif")
PageCount = oGdPictureImaging.TiffGetPageCount(TiffImageID)
For i = 1 To PageCount
Call oGdPictureImaging.TiffSelectPage(TiffImageID, i)
Call oGdPictureImaging.DrawText(TiffImageID, "Page " & CStr(i) & " / " & CStr(PageCount), 50, 50, 10, FontStyle.FontStyleRegular, Color.Black, "Arial", True)
oGdPictureImaging.ConvertTo1Bpp(TiffImageID) 'Comment this line to keep true color image
Next i
Call oGdPictureImaging.TiffSaveMultiPageToFile(TiffImageID, "output.tif", TiffCompression.TiffCompressionCCITT4)
oGdPictureImaging.ReleaseGdPictureImage(TiffImageID)Users browsing this forum: No registered users and 1 guest