一、部分與打印有關的系統(tǒng)變量
VFP本身為我們提供了幾個與打印有直接關系的系統(tǒng)變量,它們是 部分)
_BOX 是否打印文字邊框，.T.=打印
_GETNPD 指定或保存打印機接口驅(qū)動程序的文件名。
_PADVANCE 設定打印紙進紙方式，=FORMFEED(默認)整張進紙。
_PAGENO 設定或保存當前的打印頁號。
_PBPAGE 設定或返回打印的起始頁號。
_PEPAGE 設定或返回打印的終止頁號。
_PCOLNO 設定或返回當前打印頭的列。
_PLINENO 設定或返回當前打印頭的行。
_PCOPIES 設定或返回打印份數(shù)。
_PLENGTH 設定或返回打印紙的頁長，默認=66行長。
_PPITCH 設定打印機的打印密度。
_PQUALITY 設定打印機的打印質(zhì)量。
... ...
這些變量在設計報表程序時，有些是很有用的，故在此列出。
二、一些常用的打印技巧
1.怎樣打印指定的頁
REPORT FORM XXXX RANGE 2,5 TO PRINTER &&從第2起打至第5頁止
2.如何計算總頁數(shù)，以實現(xiàn)“第？頁/總？頁”
在打印前根據(jù)細節(jié)區(qū)所打印的記錄條數(shù)，先進行計算，然后再打印，具體代碼：
PUBL mPAGE
SELE XXX &&xxx=供打印的數(shù)據(jù)表
XX=10 &&XX=細節(jié)區(qū)所打印的記錄條數(shù)
mPAGE=IIF(RECCOUNT()%XX=0,INT(RECCOUNT()/XX),INT(RECCOUNT()/XX)+1)
mPAGE就是總頁數(shù)，這樣在需要總頁數(shù)的地方就可直接引用mPAGE變量了。
3.如何使報表打滿一頁
如果打印的記錄不足一頁，“頁注腳”會自動上移，影響報表的美觀，解決的辦法和上面的差不多,即補足一頁中所缺少的記錄（補足空白記錄）：
SELE XXX &&xxx=供打印的數(shù)據(jù)表
XX=10 &&XX=一頁細節(jié)區(qū)所打印的記錄條數(shù)
mI=RECCOUNT()%XX &&取得缺少的記錄條數(shù)
FOR I=1 to mI
APPEND BLANK
ENDF
4.報表在設計時明明可以打印，可一安裝到其它機器或重裝系統(tǒng)后，就會出現(xiàn)“XXX 帶區(qū)太大不能放入頁中”等提示，而且無法正常退出（尤其是對自定義紙張大小的程序），這是為什么呢？ 我們用報表設計器設計的打印程序，保存退出后，磁盤上就會出現(xiàn) .frx和.FRT文件，我們的所有設計均保存在這兩個文件中。在VFP中 .frx相當于.DBF表，.FRT相當于.FPT備注型文件，我們用USE XXX.frx 可以象打開.DBF文件一樣打開.frx文件，在.frx文件中有個Expr備注型字段名，在這個字段名中有如下內(nèi)容：其中()內(nèi)是我所加的譯文
RIVER=winspool
DEVICE=Epson LQ-1600K
OUTPUT=LPT1:
ORIENTATION=0
PAPERSIZE=256 (紙張大小)
PAPERLENGTH=1000 (紙張長度)
PAPERWIDTH=1600 (紙張寬度)
DEFAULTSOURCE=8 (默認來源)
PRINTQUALITY=180 (打印質(zhì)量)
COLOR=2
YRESOLUTION=180
TTOPTION=1
從這個Expr備注型字段里可以看出：PAPERSIZE=256 這里的256表示是自定義紙張，如果：
PAPERSIZE=9 為A4、11為A5 具體數(shù)據(jù)見VFP幫助的Printfo()一節(jié)， 而：
PAPERLENGTH=1000 (紙張長度)
PAPERWIDTH=1600 (紙張寬度)
則分別代表自定義紙張的長度和寬度。 之所以會出現(xiàn)上面提到的問題，是因為系統(tǒng)重新安裝打印機后，WIN系統(tǒng)一般默認的是A4打印紙，與我們設計時保存在.frx文件里的紙張不符，因而造成這種情況。 那么如何避免出現(xiàn)這個問題呢？
下面是一段檢測紙張類型的代碼，供您參考：
這段代碼必須放在執(zhí)行report form ... 命令前。
use xxx.frx in 0 ALIAS mPrint &&在空閑工作區(qū)以mPrint別名打開xxx.frx文件
x=atcline('PAPERSIZE',mPrint.Expr) &&取得PAPERSIZE在Expr字段中的行
sSIZE=subs(mline(mPrint.Expr,x),11) &&取得設計時保存的紙張類型
mSIZE=allt(str(Prtinfo(2))) &&取得當前打印機默認的紙張類型
x=atcline('PAPERLENGTH',mPrint.Expr) &&取得紙張長度在Expr字段中的行
sLEN=subs(mline(mPrint.Expr,x),13) &&取得紙張長度
x=atcline('PAPERWIDTH',mPrint.Expr) &&取得紙張寬度在Expr字段中的行
sWIDTH=subs(mline(mPrint.Expr,x),12) &&取得紙張寬度
use in 'mPrint' &&關閉xxx.frx文件
if sSIZE=mSIZE &&如果相符，則正常打印
report form xxx.frx to printer
else
Messagebox('請設定打印機紙張為自定義：長='+sLEN+',寬='+sWIDTH,0+48+0,'提示')
report form xxx.frx to printer prompt &&打印前先打開打印機設置對話窗口
endi
5.不讓打印的結(jié)果顯示在屏幕上
report form xxx.frx to printer Noconsole
6.打印或打印預覽時，如何使系統(tǒng)打印工具條不出現(xiàn) 系統(tǒng)提供的打印工具條，我們無法檢測其各按鈕的事件，不能掌握用戶當時操作的情況，那如何不讓它出現(xiàn)呢？
首先您得做一個表單(最好是模式表單)，用于代替系統(tǒng)的預覽窗口(Preview)，然后：
do form dybd &&打開這個表單
report form xxx.frx windows dybd
這樣系統(tǒng)提供的打印工具條就不會出現(xiàn)了。
當然如果自己再做個類似于打印工具條的類，既可掌握按鈕事件又美觀就更好了，注：經(jīng)查VFP3.0可能沒有windows子句。
轉(zhuǎn)帖自:黑龍江計算機等級考試網(wǎng) |
發(fā)表于 2007-1-30 13:41:44
收藏