网站首页
分类导航
试题中心
下载中心
英语学习
缤纷校园
考试论坛
网站留言
客服中心
 全国计算机等级考试二级VFP报表设计的常用技巧
【字体:
全国计算机等级考试二级VFP报表设计的常用技巧
http://www.exam8.com 来源:考试吧(Exam8.com) 点击: 更新:2006-11-30 9:19:12

  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子句。

上一页  [1] [2] 

文章录入:ak47    责任编辑:ak47  
 版权声明
   如果本网站所转载内容不慎侵犯了您的权益,请与我们联系,我们将会及时处理。如转载本网内容,请注明出处。
 发表评论
关于本站 网站声明 广告服务  联系方式  付款方式  站内导航  客服中心  诚聘英才  友情链接   
Copyright © 2004-2007 考试吧 (Exam8.com) All Rights Reserved 
中国科学院研究生院中关村园区(北京市海淀区)