Split a Multipage TIFF File

Q:  How can I split a large multipage TIFF file?

A:  If you have a multipage TIFF file you can easily split into two pieces. The TIFF file should be maximum 24 bit per pixel image. The BITIFF.OCX contains a SplitTiffFile method that solves this problem. See the description of the method.            So you can decrease the size of the image, and split up the image.

Code example:

       Dim BITiffobj As Object

       Dim fileName As String

       Dim fileNameNew As String

       Dim bSuccess As Boolean

       fileName = “c:\test.tif”

       fileNameNew = “c:\dest.tif”

       Set BITiffobj = CreateObject("BITIFF.BITiffCtrl.1")

       bSuccess = BITiffobj.SplitTiffFile(fileName, fileNameNew, 2)

       Set BITiffobj = Nothing