【 tulaoshi.com - 编程语言 】
----几乎所有数据库应用软件，都需要打印单证和报表。常见的方法是利用VB的CrystalReports(水晶报表)方式，通过TextBox等数据绑定控件，调用Print方法直接输出。虽然CrystalReport这一个功能强大、样式丰富且无编程方式的报表编制程序能适应大部分单证、报表打印的需要，但是CrystalReports引擎是一个动态链接库，需许多文件支持和调用更多系统资源，大大增加系统负担。
----另一种解决办法是通过Printer对象的Print方法，直接打印字符串。这虽然减少了系统资源的开销，但它不能直接用于打印复杂的单证和报表。本文通过两个实例，阐述一个通用折行打印程序的编程和在单证及报表的应用。
----二．编程实现及实例
----为便于阐述的方便，我们先建立一个Access数据库Standards.mdb，其内SN表由以下几个字段组成：
----标准号（文本，17）
----标准名称（文本，255）
----英文名称（文本，255）
----实施日期（日期，8）
----修定日期（日期，8）
----发布日期（日期，8）
----代替标准（文本，50）
----通用折行打印程序编制操作如下：
----1.在VB5.0编程环境中，新建一个工程Project1；
----2.在Project1中添加Moduel，在Moduel模块中定义一个记录最大折行数的公用变量Rowlab和Function函数（以下程序都经过实际运行测试，可以原样复制使用）；
PublicrowlabAsInteger
'定义一个公用变量
Functionprnt11(XAsInteger,YAs
Integer,FontAsSingle,TxtAsString,ValAsInteger)
DimstrAsString,str1AsString,
str2AsString,iAsInteger
Printer.CurrentX=X
Printer.CurrentY=Y
Printer.FontBold=False
Printer.FontSize=font
str=txt
str2=str
i=0
rowlab=0
IfLen(Trim(str))=0Then
rowlab=1 '待打印字符串为空的标志
Else
DoWhileLen(str)0
Printer.CurrentX=X
Printer.CurrentY=Y rowlab*240
rowlab=rowlab 1
IfLen(str)=valThen
str1=Mid(str,1,val)
Printer.Printstr1
i=i 1
str=Mid(str2,i*val 1)
Else
Printer.Printstr
ExitDo
EndIf
Loop
EndIf
EndFunction
----3．在Project1中新建一个窗体Form1，窗体上添加一个Data控件Data1，一个MSFlexGrid控件MSFGrid1，7个TextBox和两个命令按钮CmdPrnt1、CmdPrnt2。设置Data控件的属性：
..DatabaseName="Standards.mdb"
..RecordSourse="SN"
MSFGrid1属性：
.DataSource="Data1"
Text1属性：
.DataSource="Data1"
.DataField="标准号"
Text2~Text7类同。
----CmdPrnt1、CmdPrnt2分别为打印单条记录和多条记录的按钮。
----实例1：文字串定位折行打印在口岸联检部门中应用非常广泛。下述例子是用CmdPrnt1的Click事件代码实现了对文字串定位折行打印：
PrivateSubCmdPrnt1_Click()
DimstrAsString,str1AsString,txtAsString
DimstrxAsInteger,stryAsInteger,iAsInteger
strx=200
stry=0
txt=Space(20) "中国出入境检验检疫标准目录检索STEMS2000"
Printer.FontName="黑体"
dd=prnt11(strx,stry,10,txt,50)
stry=stry rowlab*240
Printer.Line(0,stry)-(9000,stry)
Printer.FontName="宋体"
txt="标准号：" Space(2) Trim(Text1) Space(3)
"发布日期：" Trim(Text4) Space(3) "实施日期："
Trim(Text6) Space(3) "修定日期：" Trim(Text5)' Chr(13)
stry=stry 240
dd=prnt11(strx,stry,10,txt,70)
stry=stry rowlab*240
txt="代替标准："
dd=prnt11(strx,stry,10,txt,10)
dd=prnt11(strx 1000,stry,10,Trim(Text7),60)
stry=stry rowlab*240
txt="标准名称："
dd=prnt11(strx,stry,10,txt,10)
dd=prnt11(strx 1000,stry,10,Trim(Text4),38)
stry=stry rowlab*240
txt="英文名称："
dd=prnt11(strx,stry,10,txt,10)
dd=prnt11(strx 1000,stry,10,Text5,72)
Printer.EndDoc
EndSub
----注：Prnt11函数原形：prnt11(XAsInteger,YAsInteger,FontAsSingle,TxtAsString,ValAsInteger)，其各参数含义如下：
----X、Y为待打印字符串左上角起始座标；
----Font为字体大小；
----Txt为待打印字符串；
----Val为字符串打印折行长度。
----实例2：直接打印表格式窗体显示的多记录多字段，往往因某些字段的字节太多而造成纸张宽度不足。以下CmdPrnt2的Click事件中的代码，实现了对上述MSFGrid1表格记录的打印：
PrivateSubCmdPrnt2_Click()
DimfntAsSingle
DimppAsInteger
DimstryAsInteger,strxAsInteger
Dimstry1AsInteger,
strx1AsInteger,linwAsInteger
Dimpage1AsInteger,pAsInteger,
gridrowAsInteger,iiAsInteger
p=0
ii=1 'ii记录MSFGRID1表格同一记录内字段最大打印行
pp=0'开始页码
ss$="中国出入境检验检疫标准目录检索STEMS2000"'表头
Statica(4)AsInteger
kan=0
a(2)=1680
a(3)=2800
a(4)=5300
page1=46'定义每页行数
strx=200
strx1=200
stry=1400
stry1=1400
linw=240'定义行宽
fnt=10'定义字体大小
Fori=2To4
kan=kan a(i)
Next
gridrow=Datdatact1.Recordset.RecordCount
Ifgridrow=0Then
MsgBox"无满足条件记录打印！"
ExitSub
EndIf
Printer.FontName="黑体"
dd=prnt11(3300,700,fnt,ss$,26)'打印标题
dd=prnt11(500,stry-250,fnt,"标准号",26)
dd=prnt11(2690,stry-250,fnt,"标准名称",26)
dd=prnt11(6690,stry-250,fnt,"英文名称",26)
Printer.Line(strx-20,stry-30)-(10460,stry-30)
Printer.FontName="宋体"
Forj=1Togridrow '打印gridrow条记录
MSFGrid1.Row=j
strx=strx1
Fori=2To4'假设只打印2-3列
MSFGrid1.Col=i
dd=prnt11(strx,stry,fnt,
MSFGrid1.Text,IIf(i=3,13,55))
IfiirowlabThen
'ii记录同一记录内字段最大打印行
ii=rowlab
EndIf
strx=strx a(i)
Next
p=p ii
rowlab=ii
ii=1'重新初始化
Ifppage1Then
p=0
strx=strx1
Forn=2To4
strx=strx a(n)
Next
pp=pp 1
stry=stry rowlab*linw
foot$="第" CStr(pp) "页"
dd=prnt11(strx/2,stry 3*linw,10,foot$,26)
stry=stry1
Printer.NewPage
Printer.FontName="黑体"
dd=prnt11(3300,700,fnt,ss$,26)
dd=prnt11(500,stry-250,fnt,"标准号",26)
dd=prnt11(2690,stry-250,fnt,"标准名称",26)
dd=prnt11(6690,stry-250,fnt,"英文名称",26)
Printer.Line(-20,stry-30)-(10460,stry-30)
'打印起始线
Printer.FontName="宋体"
strx=strx1
Else
stry=stry rowlab*linw
EndIf
Next
Ifppage1Then
Forp=0Topage1 1
strx=strx1
Next
EndIf
strx=strx1
Forn=2To4
strx=strx a(n)
Next
pp=pp 1
foot$="第" CStr(pp) "页"
dd=prnt11(strx/2,stry 3*linw,10,foot$,26)
Printer.EndDoc
EndSub
----以上程序在简体中文Windows98、VB5.0环境中调试通过。->
