VFP不安裝列印驅動直接呼叫列印而且不自動進紙

之前程式要列印都是利服報表(report),設定好列印格式後,就呼叫report from 來列印,這樣有其優點就是更改列印格式容易,但缺點是一定要安裝印表機,而且要設好紙張,比如設好了a4紙,那麼列印時每走一張a4紙高度就會自動進紙重新打第二頁,而且列印驅動通常都自動設了頁邊距,這部份頁邊距不同於列印時設定的那些頁邊距,驅動中設有的頁邊距是不可調的,也就是說,要想打一頁紙從最上邊一直列印到最下面是不可能的,他總是會留下一定的上邊距下頁距.

這對於要一此特殊的情況就不適用了,比如pos的列印,大多的pos印表機都沒有列印驅動的,就算有要找也麻煩,找了還要裝,重灌了電腦,又要重灌驅動,這樣對於一套軟體來說,其維護的成本無形就增大了,而且中國人節約的優良傳統也是其最大的障礙,很多公司都要打日記帳,一打就是幾十頁甚至幾百頁,如果每一頁都留有上下邊距,那無形中就是乙個很大的浪費,正因為此,就引申出了今天這個文章.

舊版本的vfp是用@ say 來送出列印的,這個功能一直被繼承到了現在,要實現不用驅動,直接列印,最主要就是利用@ say 把所要列印的內容送到乙個*.prn列印檔案中,然後,再把這個檔案複製到ltp的列印口,就可以了.**如下.

srprint()

set safety off

set device to file output.prn &&生成列印檔案

select 0

use _lj

gs1=alltrim(gs_f)

use

@ prow(),0 say gs1+iif(empty(_spdjhc1.sm1_f)," 草稿","")

@ prow()+1,0 say "小票清單"

@ prow()+1,0 say "日期:"+dtoc(date())+" 收銀:"+alltrim(_spdjhc1.p_zdr_f)

@ prow()+1,0 say _spdjhc1.sm1_f+" 會員:"+alltrim(_spdjhc1.p_hy_f)

@ prow()+1,0 say "──────────────"

@ prow()+1,0 say " 品名批號"

@ prow()+1,0 say " 廠家"

@ prow()+1,0 say " 批准文號"

@ prow()+1,0 say " 數量售價售額"

@ prow()+1,0 say "──────────────"

select _spdjhc2

scan for not empty(spzd_sp_f)

@ prow()+1,0 say padr(left(_spdjhc2.p_sp1_f,20),20," ")+alltrim(_spdjhc2.scph_f) &&商品批號

@ prow()+1,0 say alltrim(_spdjhc2.p_kh1_f) &&廠家

@ prow()+1,0 say alltrim(_spdjhc2.pzwh_f) &&批准檔案號

@ prow()+1,0 say alltrim(str(_spdjhc2.sl_f,20,4)) &&數量

@ prow(),9 say alltrim(str(_spdjhc2.xsdjhs_f,20,2)) &&售價

@ prow(),18 say alltrim(str(_spdjhc2.xsjehs_f,20,2)) &&金額

@ prow()+1,0 say "──────────────"

endscan

@ prow()+1,0 say "應收:"+alltrim(str(_spdjhc1.sxlj_f,20,2))+" 實收:"+alltrim(str(_spdjhc1.tetssje_f,20,2))

@ prow()+1,0 say "找零:"++alltrim(str(_spdjhc1.tetssje_f-_spdjhc1.sxlj_f,20,2))

@ prow()+2,0 say ""

@ prow()+1,0 say ""

set device to screen

copy file output.prn to lpt1.dos &&送到lpt1列印口

set safety on

VFP不安裝列印驅動直接呼叫列印而且不自動進紙

命令列呼叫INF安裝列印驅動

解決EPSON R230印表機驅動程式安裝錯誤

HP M177印表機驅動安裝問題與解決

VFP不安裝列印驅動直接呼叫列印而且不自動進紙

命令列呼叫INF安裝列印驅動

解決EPSON R230印表機驅動程式安裝錯誤

HP M177印表機驅動安裝問題與解決

相關推薦