IF tnDeviceType == -1 IF tnPageNo = 1 tnDeviceType = 101 ELSE tnDeviceType = 201 ENDIF This.OutputPage(tnPageNo, This.cFileName, tnDeviceType) NODEFAULT ENDIFYou can get even more complex with the code and create separate TIFF files if needed, but this gets you started on the idea. To run the report, use this code.
ox = CREATEOBJECT('MyTIFFListener') ox.cFileName = 'MyNewFile' REPORT FORM MyReport OBJECT oxI hope this helps,