程序代码：

   5、自定义类覆盖 OutputPage 方法输多页报表到 TIFF 图像文件

local o报表监听器
    ** 实例化自定义的监听器类
o报表监听器 = CreateObject("MyTiffListener")
o报表监听器.tifffilename = "c:\temp\MyTest.tif"
REPORT FORM test.frx Object o报表监听器        && 由监听器对象控制输出格式

    ** 自定义名为 MyTiffListener 的报表监听类
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