VFP报表怎样转换.tif格式文件
请问各位老师,如何将VFP报表(另存)转换.tif格式文件?谢谢老师帮忙!
CREATE CURSOR Test (f1 I) APPEND BLANK o报表监听器 = CREATEOBJECT("MyTiffListener") o报表监听器.tifffilename = "c:\temp\Test.tif" REPORT FORM 报表1.frx OBJECT o报表监听器 RETURN DEFINE CLASS MyTiffListener AS ReportListener tifffilename = "" listenertype = 2 && 按页提供报表结果,不打印输出 * 重载 OutputPage 方法 FUNCTION OutputPage(nPageNo, eDevice, nDeviceType) IF (nDeviceType == -1) and !EMPTY(THIS.tifffilename) IF (nPageNo == 1) && 为第一页报表建立 TIFF 文件 THIS.OutputPage(nPageNo, THIS.tifffilename, 101) ELSE && 向已建立的 TIFF 文件添加剩余的报表页 THIS.OutputPage(nPageNo, THIS.tifffilename, 201) ENDIF NODEFAULT ENDIF ENDFUNC ENDDEFINE