通用简易报表打印程序（二）.doc

*！*通用简易报表打印程序（二）

*！*不能打印通用型和备注型字段内容

SetTalkOff

Clear

wjm=Getfile(dbf)

Usewjm

行数=0

页数=1

a=Fcount()

LineS=25

Pages=Iif(Mod(Reccount(),LineS)0,Int(Reccount()/LineS+1),Reccount()/LineS)

DimensionName(a),wide(a)

Store1Toi,cc

DoWhileia

StoreField(i)ToName(i),t

IfType(t)=N

wide(i)=Max(Len(T),Fsize(Name(i)))

wide(i)=Iif(wide(i)/2=Int(wide(i)/2).wide(i),wide(i)+1)

Else

IfType(t)=D

wide(i)=8

Else

wide(i)=Max(Len(t),Len(t))

wide(i)=Iif(Mod(wide(i),2)=0,wide(i),wide(i)+1)

Endif

Endif

i=i+1

Enddo

End=i-1

Head=Space(30)

@18,30Say请键入表名：GetHead

Read

i=1

Size=2

DoWhilei=End

Size=Size+wide(i)+2

i=i+1

Enddo

SetPrintOn

?Space((Size-Len(Trim(Head)))/2)+Head

DoWhile.Not.Eof()

If行数=LineS*2+1

?└

i=1

DoWhileiEnd

??Replicate(─,wide(i)/2)+┴

i=i+1

Enddo

??Replicate(─,wide(i)/2)+┘

?Space(10)+第+Str(页数,2)+页+Space(1)+共+Str(Pages,2)+页

IfSize60

??Space(Size-60)+制表日期：+Str(Year(Date()),4)+年+;

STR(Month(Date()),2)+月+Str(Day(Date()),2)+日

Endif

页数=页数+1

行数=0

?

Eject

?Space((Size-Len(Trim(Head)))/2)+Head

Endif

?┌

i=1

DoWhileiEnd

??Replicate(─,wide(i)/2)+┬

i=i+1

Enddo

??Replicate(─,wide(i)/2)+┐

?│

i=1

DoWhilei=End

??Name(i)+Space(wide(i)-Len(Name(i)))+│

i=i+1

Enddo

行数=行数+2

DoWhile行数LineS*2+1.And..Not.Eof()

?├

i=1

DoWhileiEnd

??Replicate(─,wide(i)/2)+┼

i=i+1

Enddo

??Replicate(─,wide(i)/2)+┤

?│

i=1

DoWhilei=End

IfType(name(i))=N

T=Str(T,wide(i))

Else

IfType(name(i))=D

T=Dtoc(T)

Else

T=Name(i)

Endif

Endif

??T

IfType(t)=N

??Space(wide(i)-Fsize(Name(i)))+│

Else

IfType(t)=D

??│

Else

??Space(wide(i)-Len(T))+│

Endif

Endif

i=i+1

Enddo

Skip1

行数=行数+2

Enddo

Enddo

If行数LineS*2+1

?└

i=1

DoWhileiEnd

??Replicate(─,wide(i)/2)+┴

i=i+1

Enddo

??Replicate(─,wide(i)/2)+┘

?Space(10)+第+Str(页数,2)+页+Space(1)+共+Str(Pages,2)+页

IfSize60

??Spa