发新话题
打印

全国计算机等级考试二级VFP报表设计的常用技巧

本主题由 System 于 2007-12-4 02:12 提升

全国计算机等级考试二级VFP报表设计的常用技巧

一、部分与打印有关的系统变量5 f4 z7 r1 w& b  g& q  l1 ?( _
  VFP本身为我们提供了几个与打印有直接关系的系统变量,它们是部分)  [) `' ?. y/ b+ @$ I: O; t
_BOX    是否打印文字边框,.T.=打印 ' [$ F& M9 Q# S4 q) ]# a
_GETNPD   指定或保存打印机接口驱动程序的文件名。
9 |; U3 M3 Y& b  t  ~; ^5 O2 O_PADVANCE 设定打印纸进纸方式,=FORMFEED(默认)整张进纸。' i- a, a* Y3 Z% b' L: ]
_PAGENO   设定或保存当前的打印页号。
9 r. A& J; y0 K2 k  |1 x1 m_PBPAGE   设定或返回打印的起始页号。   d3 [' k, z( I% M5 h
_PEPAGE   设定或返回打印的终止页号。
. [6 O* J2 F1 h6 S& K_PCOLNO   设定或返回当前打印头的列。 1 @2 M- d; a3 L' a. o$ \
_PLINENO  设定或返回当前打印头的行。
. Q! {5 F* e- }) b: E8 s_PCOPIES  设定或返回打印份数。
: _- w: e/ o. T! {" p& ]  o! e  w_PLENGTH  设定或返回打印纸的页长,默认=66行长。
$ A( N! h! B; j. x_PPITCH   设定打印机的打印密度。
8 k7 B/ W4 w0 ]_PQUALITY 设定打印机的打印质量。
6 s' i1 |$ a# ^$ w+ T/ v$ Q... ... # M) K% r, G4 O( j! z% ?
  这些变量在设计报表程序时,有些是很有用的,故在此列出。   二、一些常用的打印技巧
! I: ?' h2 Z- Y9 a4 U  1.怎样打印指定的页   [3 A, m7 k; s1 I
REPORT FORM XXXX RANGE 2,5 TO PRINTER  &&从第2起打至第5页止
  M) n# ]- G! S' w  2.如何计算总页数,以实现“第?页/总?页” 7 z  u, |4 l: I3 h3 H
  在打印前根据细节区所打印的记录条数,先进行计算,然后再打印,具体代码:$ \. A) S: E! U
PUBL mPAGE # N2 Q+ @  w. O, \6 z  `1 j
SELE XXX   &&xxx=供打印的数据表 0 X3 Y, N8 T2 f. z
XX=10     &&XX=细节区所打印的记录条数
; l: x  I* c( N+ HmPAGE=IIF(RECCOUNT()%XX=0,INT(RECCOUNT()/XX),INT(RECCOUNT()/XX)+1) % C( \' X; V' x+ F5 F0 @
mPAGE就是总页数,这样在需要总页数的地方就可直接引用mPAGE变量了。
3 h# f8 {6 X( X  3.如何使报表打满一页
! I& U( n+ _+ `6 C" V' ?- o  如果打印的记录不足一页,“页注脚”会自动上移,影响报表的美观,解决的办法和上面的差不多,即补足一页中所缺少的记录(补足空白记录):
) U# x/ F1 e; oSELE XXX    &&xxx=供打印的数据表 : G9 ^( X3 w- k( S" N- d3 G
XX=10     &&XX=一页细节区所打印的记录条数 6 v( i  A1 v& x! L3 y1 [
mI=RECCOUNT()%XX    &&取得缺少的记录条数; r4 Y  d/ E* D: ^# R# O( s
FOR I=1 to mI
& C4 M2 ]- N( C: |! J  APPEND BLANK
* u- v! }8 C2 s" ?ENDF

TOP

4.报表在设计时明明可以打印,可一安装到其它机器或重装系统后,就会出现“XXX 带区太大不能放入页中”等提示,而且无法正常退出(尤其是对自定义纸张大小的程序),这是为什么呢?  我们用报表设计器设计的打印程序,保存退出后,磁盘上就会出现 .frx和.FRT文件,我们的所有设计均保存在这两个文件中。在VFP中 .frx相当于.DBF表,.FRT相当于.FPT备注型文件,我们用USE XXX.frx 可以象打开.DBF文件一样打开.frx文件,在.frx文件中有个Expr备注型字段名,在这个字段名中有如下内容:其中()内是我所加的译文
0 Q0 }+ X8 @8 W: e2 w# s6 @: CRIVER=winspool
* ?* v; s2 {8 e9 mDEVICE=Epson LQ-1600K
" J3 K2 B' U  w  Q: i  J  E+ E( Q( UOUTPUT=LPT1: - M7 e# Z, E+ e6 v1 a) N
ORIENTATION=0   * v% L  ^( `& a5 U/ ?# M, z
PAPERSIZE=256       (纸张大小) % _8 k9 C7 ^$ ]2 H
PAPERLENGTH=1000     (纸张长度) : W) O7 i1 M* i8 i! g6 X
PAPERWIDTH=1600      (纸张宽度) 8 o7 `( r9 L6 J8 q- {3 u7 c; S
DEFAULTSOURCE=8     (默认来源)
3 Z+ [. w% Z& ]- y5 y9 A7 uPRINTQUALITY=180     (打印质量)   a% n  S7 H, |/ H
COLOR=2
/ b" x* F3 T6 o0 A% P  lYRESOLUTION=180 6 \/ X5 Z8 l! B/ z- g- G& Z3 F5 l5 ?+ T  o
TTOPTION=1
! A, U9 X  |& H5 f. R, u
+ P$ G5 g& g) M4 o- z: t* w从这个Expr备注型字段里可以看出:PAPERSIZE=256 这里的256表示是自定义纸张,如果:" l& t, `- J7 S8 N; u1 e1 x
PAPERSIZE=9 为A4、11为A5 具体数据见VFP帮助的Printfo()一节, 而:
, p# v7 f3 U( {' k; _PAPERLENGTH=1000  (纸张长度) % l* X/ j: Y1 S" f. l( `% m9 e7 x
PAPERWIDTH=1600   (纸张宽度)
& y! a* z) Q. K- l8 r; {8 G则分别代表自定义纸张的长度和宽度。 之所以会出现上面提到的问题,是因为系统重新安装打印机后,WIN系统一般默认的是A4打印纸,与我们设计时保存在.frx文件里的纸张不符,因而造成这种情况。 那么如何避免出现这个问题呢?
7 Z& |( h* V( G' V  下面是一段检测纸张类型的代码,供您参考:
( M. x6 D5 W& r5 B/ j这段代码必须放在执行report form ... 命令前。* O+ q" c1 l) v5 z" f
9 d7 B& h: I  f3 j3 |) E! k
use xxx.frx in 0 ALIAS mPrint    &&在空闲工作区以mPrint别名打开xxx.frx文件
6 P9 E, `8 Y  b' k3 Wx=atcline('PAPERSIZE',mPrint.Expr) &&取得PAPERSIZE在Expr字段中的行   O/ Q' }% X' r" O% k/ K
sSIZE=subs(mline(mPrint.Expr,x),11) &&取得设计时保存的纸张类型
5 M7 f! h. X8 I8 I4 o2 omSIZE=allt(str(Prtinfo(2)))     &&取得当前打印机默认的纸张类型 6 g) M# ]3 O/ M7 o( c+ }0 G
x=atcline('PAPERLENGTH',mPrint.Expr) &&取得纸张长度在Expr字段中的行
9 k# I6 E/ \: I/ P) _8 _; fsLEN=subs(mline(mPrint.Expr,x),13)  &&取得纸张长度* t+ e, d2 v& M% a$ Z* K  z
x=atcline('PAPERWIDTH',mPrint.Expr) &&取得纸张宽度在Expr字段中的行
/ ~' D* `" o3 A" ~0 b+ ^8 AsWIDTH=subs(mline(mPrint.Expr,x),12) &&取得纸张宽度 + c/ L* \$ u! F
use in 'mPrint'          &&关闭xxx.frx文件
3 m' o6 R: F2 ~5 W) _if sSIZE=mSIZE          &&如果相符,则正常打印. R  f/ U( r; Y: |( t
 report form xxx.frx to printer ; z! N+ Y/ H0 A4 e
else 7 d/ G$ u: }+ h9 y7 o5 c
 Messagebox('请设定打印机纸张为自定义:长='+sLEN+',宽='+sWIDTH,0+48+0,'提示')
9 u" Y2 O3 \3 q5 Y' ]1 O2 c report form xxx.frx to printer prompt &&打印前先打开打印机设置对话窗口 " e- p9 L- ?+ }
endi
- F5 u* q% u5 D2 C3 X, l2 X
, ^1 F$ C6 w4 m1 p) l  5.不让打印的结果显示在屏幕上4 e; I, ^* K! v
report form xxx.frx to printer Noconsole
9 I+ Z$ Y% |4 t: B5 R! N. M& G# `' Z/ _
  6.打印或打印预览时,如何使系统打印工具条不出现  系统提供的打印工具条,我们无法检测其各按钮的事件,不能掌握用户当时操作的情况,那如何不让它出现呢?
) k. f! w: {: [2 f0 z" c5 R 首先您得做一个表单(最好是模式表单),用于代替系统的预览窗口(Preview),然后:
# j" }. Z2 A( rdo form dybd          &&打开这个表单
$ m6 T, H' q# I$ r0 a% [report form xxx.frx windows dybd
* Z9 S0 ~, l% \1 q  j  @  这样系统提供的打印工具条就不会出现了。) v) s( _! Y3 b( _' [
  当然如果自己再做个类似于打印工具条的类,既可掌握按钮事件又美观就更好了,注:经查VFP3.0可能没有windows子句。

TOP

发新话题
    
请严格遵守中华人民共和国法律和本论坛规章制度.
本论坛(除总公告版外)中的所有言论纯属发表者个人观点,与 海师后院 立场无关.