visual-foxpro - Vfp 报告为 jpg

Question

我正在尝试使用 foxypreviewer 将 vfp 报告导出到 jpg 。

我使用这种语法

DO foxypreviewer.app

LABEL FORM report object type 11 TO ab

它正在将所有页面转换为单个pdf。

我需要通过我的代码将所有页面分别保存在单个文件夹中的 jpg 文件中。

Foxypreviewer SaveAs 图像功能提供了我需要的相同过程。

这可能吗。如果是，请分享您的知识。

谢谢

Answer 1

我怀疑是否有直接从 VFP 中执行此操作的好方法。不过，在 Google 上搜索“将 pdf 转换为 jpg”会显示一些结果，因此也许您可以通过几个步骤来实现您的目标。

Answer 2

您也可以使用 foxypreviewer 来实现任何 vfp 报告（frx）到图像（1 个或更多）的转换，试试这个代码：

local m.yrep
m.yrep= addbs(justpath(sys(16,1)))
do locfile('Foxypreviewer.app',"app")
LOCAL loReport as "PreviewHelper" OF ("FoxyPreviewer.app" )
loReport = CREATEOBJECT("PreviewHelper")
WITH loReport as ReportHelper
SET POINT TO ","
SET DECIMALS TO 2
SET SEPARATOR TO "."
    .AddReport(getfile("frx"))
    .cDestFile =m.yrep+ "test.JPG"  
.RunReport()
local m.oo
m.oo=.cDestFile
ENDWITH
loReport = NULL
RELEASE loReport
run/n explorer  &oo
RETURN