Cut a Multipage TIFF File

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