用VB5.0从Recordset中打印列表
----VisualBasic所附带的报表生成器-CrystalReports，功能强大，能完成大部分报表的制作。但在某些情况下，用CrystalReports却很难作出报表来。例如，根据用户输入不同的过滤(Filter)条件，将产生不同的虚拟表，此时用CrystalReports制作报表就勉为其难了，在这种情况下，可使用VB提供的Printer对象来予以解决。
----下面是本人在给单位开发一个产品销售情况统计分析软件的过程中，使用Printer对象从Recordset对象的虚拟表中打印数据的通用代码：
SubPrintRecordset(recRecordsetasRecordset)
DimLeftMarginAsInteger
DimHeadTopPositionAsInteger
DimFieldNumAsInteger
DimPageCounterAsInteger
DimMyRecordsetAsRecordset
ConstFooterTopPosition=24
SetMyRecordset=recRecordset
PageCounter=1
'设置Printer对象坐标的度量单位为厘米
Printer.ScaleMode=vbCentimeters
LeftMargin=1.5
HeadTopPosition=2
----'定义打印页左上角的X坐标和Y坐标，通过改变ScaleLeft和ScaleTop的值，可改变打印页的左边距和上边距
Printer.ScaleLeft=-LeftMargin
Printer.ScaleTop=-HeadTopPosition
Printer.Font.Name="TimesNewRoman"
Printer.Font.Size=12
Printer.Print"LovesoftCorp."
Printer.Print""
IfMyRecordset.EOFAndMyRecordset.BOFThen
MsgBox"NoRecordAtPresend!",
vbCritical vbOKOnly,"PrintError"
ExitSub
EndIf
MyRecordset.MoveFirst
DoUntilPrinter.CurrentY>FooterTopPosition
'Printthefieldsoftherecordsetinsequence
ForFieldNum=0ToMyRecordset.Fields.Count-1
Printer.PrintMyRecordset.Fields
(FieldNum).Name&_
":"&_
MyRecordset.Fields(FieldNum).Value
IfPrinter.CurrentY>FooterTopPositionThen
Printer.CurrentX=8
Printer.Print"Page:"&PageCounter
'创建多页文档
Printer.NewPage
PageCounter=PageCounter 1
EndIf
NextFieldNum
MyRecordset.MoveNext
IfMyRecordset.EOFThenExitDo
'在记录之间空一行
Printer.Print""
Loop
'PrintthePagenumberasafooter
Printer.CurrentX=8
Printer.CurrentY=FooterTopPosition
Printer.Print"Page:"&PageCounter
'将输出送到打印机
Printer.EndDoc
EndSub
----调用上述PrintRecordset通用过程相当方便，下面是通过cmdPrint按钮的Click事件进行调用的一个实例：
PrivateSubcmdPrint_Click()
PrintRecordsetData1.Recordset
EndSub
- 最新文章
- 巧用VBA自动处理Word表格[04-17]
- VB中资源文件的具体使用方法[04-17]
- VB编程的一些基础的问题[04-17]
- 把符串中的一子串替换为另一子串[04-17]
- VisualBasic中实现绘图区的大十字光标[04-17]
- VB中Winsock控制的UDP协议的使用[04-17]
- 相关文章
- 巧用VBA自动处理Word表格[04-17]
- VisualBasic移除Form右上方之『X』按钮[04-17]
- VB6中用DataReport做报表[04-17]
- MDIForm可否跟一般的表单一样设定背景颜色(BackCo..[04-17]
- VisualBasic可以产生四角形以外其他形状的Form[04-17]
- VisualBasic让一个Form出现在另一个非MDIFo..[04-17]
