VFP 愛用者社區

[Cedric]

已有搜尋過之前文章, 發現可以利用 PDF Maker 及 Ghostscript 來產生
目前使用VFP8, 程式語法如下:
lcReportName = 'test'
lcFileName = 'd:\轉檔_pdf\0001.pdf'
REPORT FORM (lcReportName) NOCONSOLE TO FILE (lcFileName)
=ps2pdf(lcFileName)

在執行 "=ps2pdf(lcFileName)" 時出現以下訊息:

Error: undefined in PK
Operand stack:

Execution stack:
%interp_exit .runexec2 -- nostringval-- --nostringval-- --nostringval-- 2 %stopped_push --nostringval-- --nostringval-- --nostringval-- false 1 %stopped_push 1910 1 3 %oparray_pop 1909 1 3 %oparray_pop 1893 1 3 %oparray_pop 1787 1 3 %oparray_pop --nostringval-- %errorexec_pop .runexec2 --nostringval-- --nostringval-- --nostringval-- 2 %stopped_push --nostringval--
Dictionary stack:
--dict:1161/1684(ro)(G)-- --dict:0/20(G)-- --dict:77/200(L)--
Current allocation mode is local
Current file position is 3
GPL Ghostscript 9.02: Unrecoverable err, exit code 1

Close this window with the close button on the title bar or the system menu.



作業系統為 Win2003
Download gs902w32.exe 安裝在 d:\c_temp\gs\gs9.02 目錄下,
LocationOfgs.ini 的內容為: d:\c_temp\gs\gs9.02\bin\gswin32.exe
ps2pdf.PRG 存放在 d:\tapp\prog 目錄下, 執行檔在 d:\tapp\tapp.exe

請教一下各位, 該如何解決此問題呢? 謝謝

[jerryclt]

個人對PDF不是很熟,
直覺下判斷是:

REPORT FORM (lcReportName) NOCONSOLE TO FILE (lcFileName)

這裡出了問題,
試試直接印到PDF的虛擬印表機!

[richshih]

ps2pdf(lcFileName)
是PS2pdf 不是Pdf2pdf
lcFileName 副檔名是ps

[ckp6250]

早期我也是用 Ghostscript 來轉 pdf
後來嫌麻煩,不用它了

建議比較簡單的方法是
Set Printer TO NAME "DOPDF V7" &&PDF的虛擬印表機,看您用那個都行
SET PRINTER TO "f:\myfile.pdf"
Report Form (vReportName) To File "f:\myfile.pdf" NOCONSOLE NODIALOG
三行搞定

[raster]

我是使用 Bullzip PDF Printer

官網：
http://www.bullzip.com/products/pdf/info.php

下載安裝檔：
http://www.bullzip.com/products/pdf/info.php#download

程式碼範例：

Set Printer To Name ("Bullzip PDF Printer")

bullzip=Createobject("bullzip.pdfprintersettings")
bullzip.setvalue("confirmoverwrite","no") &&一些有的沒的的設定，例如轉完後是否存檔、是否開啟...
bullzip.setvalue("showsaveas","never")
bullzip.setvalue("showsettings","never")
bullzip.setvalue("showpdf","no")
bullzip.setvalue("showprogress","no")
bullzip.setvalue("showprogressfinished","no")

select * from AAA into cursor BBB &&反正就是資料來源

bullzip.WriteSettings(.T.)
bullzip.setvalue("output","C:\temp\pdf_output\CCC.PDF") &&設定輸出的位置
bullzip.WriteSettings(.T.) &&這邊我不清楚為何要兩次...

formname='REPORT FORM DDDD.frx TO PRINTER NOCONSOLE' &&我有先用VFP排好一張report，然後這邊就是把report的東西丟往printer(當下也就是指向PDF printer)
&formname

Release bullzip &&收尾
Set Printer To Default

*==============
另外若要合併多張PDF的話:

file_txt="A01.PDF|A02.PDF|A03.PDF" &&這些PDF要先產生好

bullzip.setvalue("mergefile",file_txt)
bullzip.WriteSettings(.T.)
bullzip.setvalue("output","C:\temp\pdf_output\CCC_final.PDF")
bullzip.WriteSettings(.T.)

[Cedric]

[Cedric]

[quote="raster"]我是使用 Bullzip PDF Printer

官網：
http://www.bullzip.com/products/pdf/info.php

下載安裝檔：
http://www.bullzip.com/products/pdf/info.php#download

............

非常感謝raster 提供的方式
已經可以順利將報表轉PDF了...
非常感謝...

[arronlee]

感谢分享，但是我还想请问有没有值得推荐的pdf to image converter之类的工具，我最近需要把pdf to bmp conversion搞定一下。

[ezpos]

PDFCreator 也是挺好用的

[ckp6250]