一区二区国产高清视频在线_真人性做爰A片免费_强伦人妻BD在线电影_亚洲熟妇无码AV_免费人成视频在线观看网站_亚洲欧美精品午睡沙发_在线观看无码的免费网站_中文字幕无码A片久久_日韩欧美国产一区精品_久久精品女人天堂av

重慶醫(yī)科大學論壇

標題: 二級VFP報表設計的常用技巧 [打印本頁]

作者: 小鳳尾 時間: 2007-1-30 13:41
標題: 二級VFP報表設計的常用技巧
一、部分與打印有關的系統(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.不讓打印的結果顯示在屏幕上
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)

歡迎光臨重慶醫(yī)科大學論壇 (http://www.espacio12.com/)