Pass the through Cesar's monochrome function, it is possible they are not 100% monochrome, which would alter the compression level to accomodate the shades of gray.

>>>Does anybody know how to create a multipage tiff in compression 4 (CCITT4) from individual tiffs with compression 4.
>>
>>In this month's edition of UTMAG you'll find an article on this subject
>>http://www.utmag.com/Index.asp
>>
>>HTH
>>
>>Cesar
>
>Cesar,
>
>The article is really helpful that is what I've been using. Below is my code '1.tif' and '2.tif' they are both compression 4 tiff files but when I combine them with the code below, I'm getting my multi-page tiff file but it is in the LZW compression and I need the compression 4 format. Any help would be appreciated.
>

>WITH _SCREEN.System.Drawing
>		LOCAL multif AS xfcBitmap
>		LOCAL page2 AS xfcBitmap
>		LOCAL page3 AS xfcBitmap
>		LOCAL myImageCodecInfo AS xfcImageCodecInfo
>		LOCAL myEncoder AS xfcEncoder
>		LOCAL myEncoderParameter AS xfcEncoderParameter
>		LOCAL myEncoderParameters AS xfcEncoderParameters
>
>		&& Create three Bitmap objects.
>		multif = .Bitmap.New(fax_path + '1.tif')
>		page2  = .Bitmap.New(fax_path + '2.tif')
>	
>		&& Get an ImageCodecInfo object that represents the TIFF codec.
>		myImageCodecInfo = .Imaging.ImageFormat.Tiff
>
>		&& Create an Encoder object based on the GUID for the SaveFlag parameter category.
>		myEncoder = .Imaging.Encoder.SaveFlag
>		
>		&& Create an EncoderParameters object An EncoderParameters object has an array of EncoderParameter
>		&& objects. In this case, there is only one EncoderParameter object in the array.
>		myEncoderParameters = .Imaging.EncoderParameters.New(1);
>
>		myEncoderParameter = .Imaging.EncoderParameter.New(myEncoder, .Imaging.EncoderValue.MultiFrame)
>		myEncoderParameters.Param[1] = myEncoderParameter
>		multif.Save(fax_path + file_copy + '.tif', myImageCodecInfo, myEncoderParameters)
>
>		*!* Save the second page (frame).
>		myEncoderParameter = .Imaging.EncoderParameter.New(myEncoder, .Imaging.EncoderValue.FrameDimensionPage)
>		myEncoderParameters.Param[1] = myEncoderParameter
>		multif.SaveAdd(page2, myEncoderParameters)
>
>		*!* Close the multiple-frame file.
>		myEncoderParameter = .Imaging.EncoderParameter.New(myEncoder, .Imaging.EncoderValue.Flush)
>		myEncoderParameters.Param[1] = myEncoderParameter
>		multif.SaveAdd(myEncoderParameters)
>ENDWITH