Q: How can I cut a large multipage TIFF file into single page TIFF files?
A: If you have a multipage TIFF file you can easily cut into single page files. The TIFF file should be maximum 24 bit per pixel image. The BITIFF.OCX contains a CutTiffFile method that solves this problem. See the description of the method. So you can decrease the size of the image.
Code example:
Dim BITiffobj As Object
Dim bSuccess As Boolean
Dim fileName1 As String
Dim fileName2 As String
fileName1 = “c:\test.tif”
fileName2 = “c:\cut.tif”
Set BITiffobj = CreateObject("BITIFF.BITiffCtrl.1")
bSuccess = BITiffobj.CutTiffFile(fileName1, fileName2, 2)
Set BITiffobj = Nothing