Question

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

我正在使用这种语法

DO foxypreviewer.app

LABEL FORM report object type 11 TO ab

它以单个pdf转换所有页面。

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

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

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

由于

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

Vfp向jpg报告

2 个答案: