精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● VFP>>〖报表设计〗>>转载:关于报表打印

主题:转载:关于报表打印
发信人: 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 


加入Foxer资料信息传送站    

[关闭][返回]