|
发信人: ljun(闲云) 整理人: hunter__fox(2002-08-09 16:44:39), 站内信件 |
| 关于报表打印
VFP所提供的报表设计器虽说功能强大，并能提供所见所得的报表预览， 但我总觉得没有DOS下直接用代码编制的打印程序来得方便和自由，虽然DOS 没有预览功能。也正因为如此，我很少谈及VFP 的打印问题，为了和大家交 流，这次也谈谈VFP的报表打印问题，希望以此和大家共同探讨。 一、部分与打印有关的系统变量 VFP本身为我们提供了几个与打印有直接关系的系统变量,它们是:(部分) _BOX 是否打印文字边框，.T.=打印 _GETNPD 指定或保存打印机接口驱动程序的文件名。 _PADVANCE 设定打印纸进纸方式，=FORMFEED(默认)整张进纸。 _PAGENO 设定或保存当前的打印页号。 _PBPAGE 设定或返回打印的起始页号。 _PEPAGE 设定或返回打印的终止页号。 _PCOLNO 设定或返回当前打印头的列。 _PLINENO 设定或返回当前打印头的行。 _PCOPIES 设定或返回打印份数。 _PLENGTH 设定或返回打印纸的页长，默认=66行长。 _PPITCH 设定打印机的打印密度。 _PQUALITY 设定打印机的打印质量。 ... ... 这些变量在设计报表程序时，有些是很有用的，故在此列出。 二、一些常用的打印技巧 1.怎样打印指定的页 REPORT FORM XXXX RANGE 2,5 TO PRINTER &&从第2起打至第5页止 2.如何计算总页数，以实现“第？页/总？页” 在打印前根据细节区所打印的记录条数，先进行计算，然后再打印，具体代码： PUBL mPAGE SELE XXX &&xxx=供打印的数据表 XX=10 &&XX=细节区所打印的记录条数 mPAGE=IIF(RECCOUNT()%XX=0,INT(RECCOUNT()/XX),INT(RECCOUNT()/XX)+1) mPAGE就是总页数，这样在需要总页数的地方就可直接引用mPAGE变量了。 3.如何使报表打满一页 如果打印的记录不足一页，“页注脚”会自动上移，影响报表的美观，解决的 办法和上面的差不多,即补足一页中所缺少的记录（补足空白记录）： SELE XXX &&xxx=供打印的数据表 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子句。 ---- Foxer资料信息传送站 站点宗旨：共同进步 站点精神：Foxer共建Fox站(网站) 站点征召：请大家把好的贴子或文章粘到网站上 主页地址：http://webpage.smiling.com.cn/foxer/index.html 报名地址:http://www.smiling.com.cn/search/groupinfo.ecgi?group_id=25505 本站域名转向: vfoxer.126.com foxer126.126.com vfp126.126.com  |
|
[关闭][返回] |