VFP 愛用者社區

aforangel · 註冊時間: 2010-05-24 文章: 117 第 1 樓

如果想將以下文字"9999343011021827798"轉用FONT 128, 再儲存為abc.jpg, 再由報表讀入這個jpg列印出來, 這樣做能嗎? 要怎樣做

syntech · 發表於: 星期四十二月 10, 2015 2:57 pm 文章主題:

http://vfp.sunyear.com.tw/viewtopic.php?t=6103&start=30

最後一篇.

VFP 9 適用.

有 FRX 報表範例

aforangel · 註冊時間: 2010-05-24 文章: 117 第 3 樓

先謝謝S大大的指教, 但我是VFP6, 請問有其他辦法嗎?

aforangel · 註冊時間: 2010-05-24 文章: 117 第 4 樓

執行時, m.loFbc = CREATEOBJECT("FoxBarcode") 這句出錯

syntech · 發表於: 星期五十二月 11, 2015 8:33 am 文章主題:

只能說範例好好看清楚

還沒測試能不能用在 VFP6 報表檔上,但在VFP6中產生圖片是沒問題.

* 追加:
以他的demo 看起來,可以用在 VFP6 報表檔.
未測試

-----
楞嚴會上,
阿難尊者以為親近世尊,
自自然然就可以得到世尊的加持,不用修行,
但實際上不是這樣呀.
就算世尊把宇宙萬物的真理通通說明清楚了,
也還得自己親身去探究及實踐.

ezpos · 註冊時間: 2011-04-20 文章: 323 第 6 樓

用這種方式看看.form 裡面放入條碼...

*-- capture window or screen image into a bitmap file
Declare Integer formtobmp In "ez-MyDll.dll" Integer HWnd,String bmpFileName
Declare Integer tojpeg In "ez-MyDll.dll" String bmpfilename, String jpgfilename

lcErrBMP=Padl(Alltrim(Str(Year(Date()))),4,"0")+Padl(Alltrim(Str(Month(Date()))),2,"0")+Padl(Alltrim(Str(Day(Date()))),2,"0")+"-"+;
PADL(Alltrim(Str(Hour(Datetime()))),2,"0")+Padl(Alltrim(Str(Sec(Datetime()))),2,"0")+Padl(Alltrim(Str(Minute(Datetime()))),2,"0")
retVal = formtobmp(0,Sys(5)+Curdir()+"Errors\"+lcErrBMP+".BMP") && Save screen to file c:\screen.bmp
retVal = tojpeg(Sys(5)+Curdir()+"Errors\"+lcErrBMP+".BMP",Sys(5)+Curdir()+"Errors\"+lcErrBMP+".jpg")