VFP编程技巧
XX=10 &&XX=一页细节区所打印的记录条数
mI=RECCOUNT()%XX &&取得缺少的记录条数
FOR I=1 to mI
APPEND BLANK
ENDF
4.报表在设计时明明可以打印，可一安装到其他机器或重装系统后，就会出现
“XXX 带区太大不能放入页中”等提示，而且无法正常退出（尤其是对自定义纸张
大小的程序），这是为什么呢？
我们用报表设计器设计的打印程序，保存退出后，磁盘上就会出现 .frx和.FRT
文件，我们的所有设计均保存在这两个文件中。在VFP中 .frx相当于.DBF表，.FRT
相当于.FPT备注型文件，我们用USE XXX.frx 可以象打开.DBF文件一样打开.frx文
件，在.frx文件中有个Expr备注型字段名，在这个字段名中有如下内容：其中()内是
我所加的译文
======================================================================
RIVER=winspool
DEVICE=Epson LQ-1600K
OUTPUT=LPT1:
ORIENTATION=0
PAPERSIZE=256 (纸张大小)
PAPERLENGTH=1000 (纸张长度)
PAPERWIDTH=1600 (纸张宽度)
DEFAULTSOURCE=8 (默认来源)
PRINTQUALITY=180 (打印质量)
COLOR=2
YRESOLUTION=180
TTOPTION=1
======================================================================
从这个Expr备注型字段里可以看出：PAPERSIZE=256 这里的256表示是自定义纸张，
如果：
PAPERSIZE=9 为A4、11为A5 具体数据见VFP帮助的Printfo()一节， 而：
PAPERLENGTH=1000 (纸张长度)
PAPERWIDTH=1600 (纸张宽度)
则分别代表自定义纸张的长度和宽度。 之所以会出现上面提到的问题，是因为系统重
新安装打印机后，WIN系统一般默认的是A4打印纸，与我们设计时保存在.frx文件里的
纸张不符，因而造成这种情况。 那么如何避免出现这个问题呢？
下面是一段检测纸张类型的代码，供您参考：
这段代码必须放在执行report form ... 命令前。
use xxx.frx in 0 ALIAS mPrint &&在空闲工作区以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.打印或打印预览时，如何使系统打印工具条不出现
系统提供的打印工具条，我们无法检测其各按钮的事件，不能掌握用户当时操
作的情况，那如何不让它出现呢？
首先您得做一个表单(最好是模式表单)，用于代替系统的预览窗口(Preview)，然后：
do form dybd &&打开这个表单
report form xxx.frx windows dybd
这样系统提供的打印工具条就不会出现了。
当然如果自己再做个类似于打印工具条的类，既可掌握按钮事件又美观就更好了，
注：经查VFP3.0可能没有windows子句。
很惭愧，我平时很少用VFP的报表设计器来编制打印程序（用其他语言代替的），
所以能谈的体会很少，十分希望这方面的高手能介绍您的经验，谢谢！
http://www.cnxhacker.com/Article/program/network/200610/6107_3.html
