win10:
见自己上传的pdffactory pro
RegistrySet("HKEY_CURRENT_USER\SOFTWARE\FinePrint Software\pdfFactory" + ls_softwareversion,"AutoSaveDir",RegExpandString!,ls_savedir)
ls_savefile = ls_savedir + '\yzdzqm' + string(ll_index) + '.pdf'
ll_ret = RegistrySet("HKEY_CURRENT_USER\SOFTWARE\FinePrint Software\pdfFactory" + ls_softwareversion,"OutputFilePerm",RegExpandString!, ls_savefile)
if ll_ret < 0 then
messagebox('提示',"设置虚拟打印机文件名失败!(设置注册表失败)")
gf_support_setprinter(ls_defaultprinter)
return
end if
ldw_list.Object.DataWindow.Export.PDF.Method = Distill!
ldw_list.Object.DataWindow.Printer = ls_printer
ldw_list.Object.DataWindow.Export.PDF.Distill.CustomPostScript="Yes"
ll_ret = ldw_list.SaveAs(ls_savefile, PDF!, true)
saveas的返回结果可能会报错-1,实际已经正常生成
1.目前我用
pb
做
pdf
的文件导出(saveas)只能支持win7的32bit,所以不再使用gs的方式做
pdf
的导出功能。
2.新的导出功能制作环境:
pb
11.5 + win7 32/64bit+ foxit reader
pdf
printer (我用的是当前最新的版本,可以直接去foxit的官网下载)
3.foxit的安装傻瓜式安装即可,安装完成之后会自动添加一个新的打印机,打印机名称为...
u_to
pdf
对象包含下列方法:
datawindow另存为
PDF
文件,as_printer为虚拟打印机名称,需安装gs705w32.exe
saveas
pdf
( datawindow adw, string as_
pdf
file, string as_printer ) returns boolean;
word文档转换成
PDF
文件,需安装office2011以上版本或wps2013以上版本
wordto
pdf
( string as_docfile, string as_
pdf
file ) returns boolean