简介这是面向Visual FoxPro开发者的FoxyPreviewer报表导出工具最新版本能够将VFP报表灵活输出为PDF、HTML、XLS、CSV、图片及RTF等格式便于分享、归档与二次分析适合需要增强VFP报表功能的开发人员使用。压缩包内含245个文件大小约5.06MB以bmp图标资源、prg程序源码、vcx/vct表单类库、frx/frt报表文件及scx/sct表单为主另有dbf数据库、dll库文件等目录结构完整便于按需部署和二次开发。目前已有327人学习下载。资源附带完整的源码与运行文件用户可直接调用或修改预览按钮、搜索翻页等交互逻辑也可参考app和pjx项目文件快速集成到现有VFP项目中有效提升报表输出效率。1. 先搞清楚 FoxyPreview 是什么一个 APP 文件替换 VFP 报表预览的全部意义FoxyPreview 从出现到现在一直是 VFP 9 SP2 报表模块绕不开的一个名字。它做的事很具体用一个 APP 文件替换 VFP 自带的预览窗口让报表的交互停在工具栏上按导出按钮就能拿到 PDF、HTML、XLS 或 CSV。这篇笔记基于 VFPX 仓库里能拉到的最新版源码包来写不吹它能解决所有报表问题而是把它能做什么、边界在哪、现场会踩什么坑讲清楚给还在维护 VFP 报表的老伙计一条能直接复现的路。适合谁手上留着老系统、被“领导要 Excel、客户要 PDF、自己还想保持 .frx 不重画”这三件事同时卡住的人。2. 安装与注册一条 DO 命令加两个 SET把预览窗口换成 FoxyPreview2.1 注册链路的三行代码FoxyPreview 的本质是一个基于 ReportListener 的预览程序。VFP 9 SP2 之前REPORT FORM 的 PREVIEW 走的是老式预览窗口那个窗口没有导出按钮也没有缩放工具栏打印设置还要自己弹对话框。FoxyPreview 能接管预览前提是 VFP 先把控制权交给 ReportListener 管线再用 SET REPORTPREVIEW 指定谁来干活。常规注册代码是下面三行* 运行时接管预览 SET REPORTBEHAVIOR 90 VFP9 SP2 才有的开关打开 ReportListener 管线 DO FoxyPreviewer.App 注册类、常量与工具栏资源 SET REPORTPREVIEW TO FoxyPreviewer.App REPORT FORM 销售日报.frx PREVIEW 之后的预览都由 FoxyPreview 接管第一行 SET REPORTBEHAVIOR 90 是整个机制的开关。没有这一行REPORT FORM 不会生成 ReportListener 事件FoxyPreview 连启动的机会都没有第二行 DO 把 APP 里的类定义和资源加载进内存第三行把 FoxyPreviewer.App 注册为预览程序之后所有 REPORT FORM ... PREVIEW 都会自动调用它。这三行不是只写一次就完事通常建议放在系统主程序的初始化过程里。如果系统里还有老代码在运行时改过 SET REPORTBEHAVIOR记得在所有报表调用点之前统一强制设置为 90。这里有个先后顺序容易翻车DO FoxyPreviewer.App 必须在 SET REPORTPREVIEW 之前。原因很实际SET REPORTPREVIEW 只是给 VFP 一个路径真正把类库和常量装进内存的是 DO 这一句。反过来写预览时找不到类定义窗口闪一下就直接关闭连报错都不弹。另外FoxyPreview 硬性依赖 VFP 9 SP2 的 ReportListener 特性代码里最好做一次版本守卫免得装到老运行时环境上现场才炸IF NOT SP2 $ UPPER(VERSION(5)) MESSAGEBOX(FoxyPreview 依赖 VFP 9 SP2 的 ReportListener请先升级开发环境) RETURN .F. ENDIFVERSION(5) 返回的是产品级别字符串VFP 9 SP2 环境下通常包含 VFP9SP2 这类标记。这个判断不花什么成本但对现场运维很有价值——很多老服务器上装的是 VFP 9 RTM 或者更老的 VFP 6/8 运行时REPORTBEHAVIOR 根本不存在出错方式千奇百怪提前拦住比事后排查省事。2.2 全局替换与单次对象两种姿势SET REPORTPREVIEW TO 属于全局替换适合整个系统统一换皮肤。它的好处是零侵入老代码里所有 REPORT FORM ... PREVIEW 不用改一行全部自动走 FoxyPreview。代价是控制粒度粗遇到个别报表想用回原生预览反而麻烦需要临时清掉设置SET REPORTPREVIEW TO 清空预览程序恢复 VFP 原生预览另一种姿势是每次报表单独创建一个 Listener 对象适合在同一个表单里同时开多个报表预览窗口的场景PUBLIC goFPListener goFPListener NEWOBJECT(FoxyPreviewer, FoxyPreviewer.vcx) REPORT FORM 销售日报.frx OBJECT goFPListener PREVIEW两种写法的区别在于全局替换是懒人模式单次对象是显式模式。显式模式更可控但有一个隐藏坑——局部变量持有 Listener 时REPORT FORM 语句执行完变量超出作用域Listener 会被垃圾回收预览窗口的后续导出动作就找不到对象了。所以用 NEWOBJECT 方式时我一般顺手用 PUBLIC 或表单属性ThisForm.oFP来持有一份引用等你导出完再手动释放。这个细节到第 5 章还会再撞一次先记着。2.3 源码里的默认参数区改动前先看这里FoxyPreview 的最新版源码包解开后FoxyPreviewer.prg 顶部通常会有一片常量定义区。这片区域就是整个工具的默认行为集中地目录路径、默认导出格式、导出后是否自动打开文件全在这里。我一般拿到新版本第一件事不是跑报表而是先翻这段常量把所有和现场习惯不一致的默认值一次性改掉。源码里的常量常见默认值作用FP_DEFAULT_FORMATPDF导出对话框默认选中的格式FP_AUTO_OPEN.T.导出完成后是否自动打开文件FP_OUTPUT_DIR程序所在目录未指定路径时的输出目录FP_DEFAULT_ZOOM100预览窗口打开时的缩放百分比* FoxyPreviewer.prg 顶部按现场习惯调整 #DEFINE FP_DEFAULT_FORMAT PDF #DEFINE FP_AUTO_OPEN .T. #DEFINE FP_OUTPUT_DIR ADDBS(JUSTPATH(SYS(16)))需要提醒的是不同版本的常量名不完全一致有的叫 FP_DEFAULTFORMAT有的叫 FP_DEFAULT_FORMAT以你自己拉下来的源码为准。改完常量之后必须重新生成 APP 文件否则运行的一直是旧行为。很多现场改完没反应不是改错了是忘了这一步。3. PDF 导出实战GDI 重绘、中文字体与分页参数的三个细节3.1 编程式导出不点按钮也能出 PDFFoxyPreview 最被人熟知的入口是预览窗口工具栏上的保存按钮但实际项目里往往还需要在批处理程序里自动导出 PDF比如每晚 10 点把当天销售报表生成 PDF 放共享目录。这种需求不用模拟点击直接创建 Listener 对象并传输出参数LOCAL loFP loFP NEWOBJECT(FoxyPreviewer, FoxyPreviewer.vcx) loFP.OutputType 1 1PDF 2HTML 3XLS 4CSV loFP.OutputFile C:\Reports\月度销售.pdf loFP.AutoOpen .T. 导出完成后自动打开 REPORT FORM 月度销售.frx OBJECT loFP NOCONSOLE逻辑是这样REPORT FORM ... OBJECT loFP 会把这条报表全部渲染进 loFP 这个 Listener 对象渲染过程中 FoxyPreview 内部生成输出流和页集合渲染结束后根据 OutputType 把流写出为指定文件。不带 PREVIEW 关键字时不会弹预览窗口适合后台任务。NOCONSOLE 是避免报表内容刷到桌面。参数上有几个注意点要盯住。OutputFile 的目录必须已经存在FoxyPreview 不会自动建目录很多同事第一次跑就挂在路径上。AutoOpen 在服务端无人值守场景应该设 .F.否则每生成一份 PDF 就弹一次 Adobe Acrobat任务计划程序会被弹窗卡死。还有一个容易忽略的OutputType 的枚举值不同版本可能重新排过代码里建议注释写明当前版本的对应关系。3.2 中文字体不是玄学FontCharSet 与字体回退VFP 9 SP2 自带的 REPORT OUTPUT TO FILE ... TYPE PDF 文件格式对中文支持一直被人吐槽问题出在它输出 PDF 时用的是 WinAnsi 编码字体中文字符在字体映射表里找不到对应字形导出结果就是整片方框。FoxyPreview 的 PDF 导出绕开了这条老路它走 GDI 逐个对象重绘字体对象里带 FontCharSet 属性中文字体对应的是 134GB2312 字符集。如果导出文件里中文还是方框优先级最高的排查项不是编码而是 GDI 是否可用、目标机器上有没有报表里指定的字体。VFP 9 自带 GDI 封装系统库名字叫 _GDIplus.vcx / _GDIplus.fllFoxyPreview 在启动时通常会自动初始化但在某些精简版运行时环境里这个系统库不在搜索路径上初始化会静默失败* 手动确认 GDI 状态 DO (_GDIplus) WITH Startup IF NOT _GDIplus.IsAvailable MESSAGEBOX(GDI 不可用PDF 导出会丢字体, 16, FoxyPreview) ENDIF DO (_GDIplus) WITH Shutdown字体回退是另一个隐蔽坑。报表里字体写的“宋体”但导出那台机器上只有“SimSun”没有“宋体”或者客户机精简了中文字体包GDI 找不到匹配项就会退回默认字体中文照样变方框。经验做法是涉及 PDF 导出的报表字体统一收敛到宋体、微软雅黑、Arial 这几个 Windows 全平台字形稳定的字体上再不行就去改 FoxyPreview 源码里的字体替换配置把 FontCharSet 强制映射到 134把找不到的字体名替换到系统已有的字体。这种问题不是代码逻辑错误换机器就能复现差异最容易当玄学处理其实根因很朴素。3.3 页码、缩放、纸张怎么传导出 PDF 时的页码范围、缩放方式和纸张设置FoxyPreview 都在 Listener 对象上暴露了属性。三个最常用的是loFP.ScaleMode 2 0原始尺寸 1适应页宽 2适应整页 loFP.PageRange 1-3,5 只导出第 1 到 3 页以及第 5 页 loFP.StartPage 1 loFP.EndPage 10 没设 PageRange 时按起止页导页码这块有个绕不过去的机制问题报表页脚里写的“第 _PageNo 页 / 共 _PageTotal 页”_PageTotal 必须在整份报表渲染完成后才能得到准确值。如果 FoxyPreview 采用单遍渲染直接输出导出的 PDF 里总页数就是错的常见表现是“共 8 页”只显示到当前渲染到的页数。最新版 FoxyPreview 提供了两遍渲染选项第一遍先快跑统计总页数第二遍再正式输出。这个选项默认可能是关的追求导出速度的人容易踩到。另外注意页面缩放。ScaleMode 设为 2 时内容会按比例缩到整页范围内和预览屏幕上看到的比例不一定相同。如果客户拿 PDF 去打印并要求 1:1 尺寸必须设成 0否则图纸比例尺会变。我一般接到这种需求就直接把 ScaleMode 默认值改成 0省得每次传参漏掉。4. HTML/XLS/CSV 导出一张报表三种交付格式的选型与坑4.1 XLS 是“假 Excel”HTML Table 和 XML Spreadsheet 两条路很多第一次用 FoxyPreview 的人以为导出 XLS 是调用了 Excel COM 对象实际不是。FoxyPreview 的 Excel 导出默认走的是 HTML Table 方案——把报表渲染成 HTML 表格写入一个扩展名为 .xls 的文件。Excel 打开这种文件能正常显示行列结构表格边框和数据类型基本保持一致但它本质不是二进制 XLS 格式。这个设计的最大价值是快一篇几百行的报表瞬间就能导出而且完全不依赖目标机器有没有安装 Office。编程式导出 XLS 的代码loFP.OutputType 3 loFP.OutputFile C:\Reports\对账单.xls loFP.Encoding UTF-8 控制 HTML 头里的 charset不走 COM 的好处很明显服务器上没装 Excel 也能出文件。代价是如果你需要带公式、合并单元格样式、数据透视表这些真 Excel 特性HTML Table 路线给不了只能另走 XML Spreadsheet 方案或者直接用 OLE 建 Workbook。XML Spreadsheet 是老 Excel 2003 的 XML 格式本质上也是 XML 文本FoxyPreview 部分版本支持这种格式后缀同样叫 .xls。选型时记住一句话给财务做对账HTML 表格足够给业务做二次加工确认清楚对方是不是要在 Excel 里继续做透视是的话就换真 XLS 方案。4.2 CSV 导出丢东西分隔符、引用符与中文编码CSV 是最轻量的交付格式经常被拿去对接 ERP 导入接口。FoxyPreview 导出 CSV 时暴露了分隔符和文本限定符的配置loFP.OutputType 4 loFP.CSVFieldSep , 也可以是 TAB、分号 loFP.CSVTextDelim 文本限定符字段内有分隔符时用CSV 容易丢数据最常见的有三个原因。第一是字段本身含逗号比如地址“XX路,1号”没有限定符包住就会被拆成两列第二是文本限定符没转义字段内有双引号时标准做法是写两个连续双引号老版本 FoxyPreview 有的地方直接拼字符串不做转义第三是编码不一致中文内容导出后 Excel 打开乱码通常是 CSV 文件用了 ANSI 编码而客户 Excel 默认按 UTF-8 解析或反过来。处理编码问题最稳的做法是按目标客户群体选编码新版 Excel 和 WPS 都认 UTF-8 带 BOM 的文件老版本 Excel 2003 反而认 ANSI。FoxyPreview 导出的 CSV 如果乱码先确认 Excel 版本再用编辑器打开 CSV 看字节别一上来就怀疑导出代码。数值型字段还有一个经典翻车点——前导零被丢掉比如编号“00123”导出变成“123”。根因是数据源里这个字段存的是数值型解决方法是报表里把它转换成字符型再输出CSV 层面的 Quote 和分隔符都救不了类型。4.3 多页报表合并导出的顺序问题一份 FRX 报表导出 XLS 或 CSV 时多页内容默认是连续合并的页与页之间不留空行。FoxyPreview 处理多页合并的方式是逐页渲染到同一个输出流里所以导出的 Excel 第一页到最后一行数据是连续的对后续导入很友好。但有一种情况需要人工干预报表里有分组带区或者页脚里带着合计行。分组带区在 HTML 表格模式下会写成独立的 页与页之间可能残留分页标记Excel 打开后能看到大量空行或者重复的合计行。遇到这种报表处理顺序是先预览一遍看总页数把 StartPage 和 EndPage 限定在业务要求的范围再导出loFP.StartPage 1 loFP.EndPage _PageTotal 先预览一次拿到总页数这么做的另一个原因是CSV 和 XLS 导出默认不重新计算页码如果只做局部重跑页脚上的合计会跟着变化必须在导出前知道这次到底覆盖了哪些页。5. 常见问题与避坑记录我从老现场带回来的五条经验5.1 预览窗口闪一下就没或者直接卡死现象REPORT FORM ... PREVIEW 执行后预览窗口刚出现就关闭或者整个 VFP 程序无响应任务管理器里看到 VFP9.EXE 进程占满 CPU。原因最常见是 FoxyPreviewer.App 不在当前搜索路径里SET REPORTPREVIEW 指向了一个找不到的文件VFP 启动预览程序失败后回退到原生预览再崩溃其次是 FoxyPreviewer.App 在会话里被 DO 了两次类重复注册导致内部资源冲突。解决在注册代码之前用 ADIR() 校验文件存在不存在就明确报错而不是默默放行IF ADIR(laTmp, FoxyPreviewer.App) 0 MESSAGEBOX(找不到 FoxyPreviewer.App请检查 SET PATH, 16, FoxyPreview) RETURN .F. ENDIF同时把 DO FoxyPreviewer.App 放到主程序只执行一次别在表单 Load 里重复执行。5.2 PDF 里中文全变方框现象预览窗口显示完全正常导出 PDF 后用 PDF 阅读器打开中文全部变成空心矩形。原因导向有两个。一是 FoxyPreview 的 GDI 字体映射失败报表字体在目标机器上不存在二是导出那台机器缺少 GDI 或字体文件本身损坏。预览正常是因为预览是 VFP 自己画屏幕导出 PDF 是 GDI 重绘两套字体解析路径。解决先确认 _GDIplus 系统库存在再开一张只有宋体微软雅黑的测试报表导出如果测试 PDF 正常说明是原报表字体问题。把报表里所有文字字体统一替换成测试通过的字体改 FRX 用报表设计器的“替换字体”功能不要手工去动 .frx 表的 FontName 字段容易改漏。改完重新导出前记得把 GDI Shutdown 后重新 Startup避免旧字体缓存残留。5.3 导出 Excel 只有第一页现象XLS 导出成功Excel 打开只有第一页或第一屏的数据后面的内容凭空消失文件大小也只有正常情况的三分之一。原因Listener 对象的生命周期没管住。用 LOCAL 变量创建 FoxyPreviewer 对象时REPORT FORM 语句执行完变量就被释放FoxyPreview 的页集合和输出流跟着被垃圾回收后续写入文件的行为发生在半截状态上。解决把 Listener 引用提升为表单属性或 PUBLIC 变量渲染完成导出完毕之后再释放ThisForm.oFP NEWOBJECT(FoxyPreviewer, FoxyPreviewer.vcx) REPORT FORM 月度销售.frx OBJECT ThisForm.oFP NOCONSOLE * 导出完成后 ThisForm.oFP .NULL.如果你在服务端 COM 模式跑 VFP 报表特别注意线程内对象生命周期每次导出用独立的 Session 更稳。5.4 页码从第 3 页开始现象PDF 导出后首页页脚显示“第 3 页 / 共 8 页”预览窗口显示的是正常的第 1 页。原因报表前面存在多个封面、说明页或者独立子报表它们和主报表共用一套页码计数。另一种情况是 FRX 里用了 _PageTotal 系统变量而 FoxyPreview 单遍渲染时总页数取的是最后一个输出对象的累计值页脚计算错位。解决先检查 FRX 是不是一个文件里塞了多份报表是的话拆开再看页脚表达式里 _PageNo 是否被手动减过值。条件允许的话打开两遍渲染选项让 FoxyPreview 先完整跑一遍拿到真实页数再输出。这个坑最容易让客户直接退货导出的 PDF 第一页就露馅处理优先级最高。5.5 导出按钮点了没反应现象预览窗口正常弹出工具栏上保存/导出图标点了没有任何反应连保存对话框都不弹。原因运行中的不是最新编译的 APP。导出按钮的 Click 事件里引用了 FoxyPreviewer.prg 中定义的常量或过程函数如果你改了 PRG 但没重新生成 APP按钮事件执行到未定义符号时被忽略VFP 不报错也不执行。解决在 VFP 命令窗口执行下列命令把 PRG 重新编译并覆盖运行目录中的 APPCOMPILE FoxyPreviewer.prg BUILD APP FoxyPreviewer.App FROM FoxyPreviewer.prg遇到按钮没反应时先做这一步比断点调试快得多。调试按钮事件时在 FoxyPreviewer.prg 的 Click 过程里临时加一行 SET STEP ON能直观看到执行到哪一步被跳过了。6. 进阶把导出按钮换成自己的并记住用户上次的格式6.1 子类化工具栏加一个“一键导出 Excel”按钮FoxyPreviewer.vcx 是一个公开的类库可以直接继承子类化。最常见的定制需求是把多个导出按钮收敛成业务按钮比如财务对账只需要 Excel就做一个“一键 Excel”按钮点下去直接出 XLS不弹格式选择框DEFINE CLASS myFoxyPreviewer AS FoxyPreviewer ADD OBJECT cmdExpExcel AS CommandButton WITH ; Caption 导出Excel, Left 520, Top 4, Height 26 PROCEDURE cmdExpExcel.Click LOCAL loParent loParent This.Parent This.Parent 就是预览容器对象 loParent.OutputType 3 loParent.OutputFile C:\Reports\ ; TRANSFORM(DATETIME(), YYYYMMDDHHMM) .xls loParent.AutoOpen .F. loParent.Export() 不同版本方法名可能有差异以源码为准 ENDPROC ENDDEFINE这里的关键是 This.Parent 指向预览对象本身按钮点击时代码能够在同一上下文里访问输出参数。子类化之后注册和预览时用 myFoxyPreviewer 代替原来的类名。这类定制不复杂但版本升级时需要注意类名和方法名有没有变化升级前先 diff 一下。6.2 记住上次的导出格式一个 INI 文件搞定操作习惯是很现实的——财务天天用 Excel业务天天要 PDF每次都重新选一次格式用户就会嫌工具难用。用 VFP 原生的 STRTOFILE 和 FILETOSTR 就能实现最轻量的记忆功能不需要额外注册表操作* 导出时保存本次格式 STRTOFILE(XLS, JUSTPATH(SYS(16)) FPConfig.ini) * 下次打开预览时读取上次格式 lcLastFmt FILETOSTR(JUSTPATH(SYS(16)) FPConfig.ini) IF EMPTY(lcLastFmt) lcLastFmt PDF ENDIF然后把这个字符串转换成 OutputType 的枚举值赋给工具栏默认选项。JUSTPATH(SYS(16)) 取的是正在运行的程序所在目录保证配置文件跟程序走换机器不丢。这个习惯我从老项目里带出来一直用到今天无论 FoxyPreview 怎么升级每个季度都强制走一遍同一套验证——开一张带中文、带 _PageTotal 的综合报表分别导出 PDF、XLS、CSV检查页脚和第一行数据后才敢发到现场。这个流程救过我好几回希望帮到你。本文还有配套的精品资源点击获取