用vb5.0从recordset中打印列表_visualbasic教程
发布时间：2020-12-16 22:28:05 所属栏目：大数据 来源：网络整理
导读：----VisualBasic所附带的报表生成器-CrystalReports，功能强大，能完成大部分报表的制作。但在某些情况下，用CrystalReports却很难作出报表来。例如，根据用户输入不同的过滤(Filter)条件，将产生不同的虚拟表，此时用CrystalReports制作报表就勉为其难了，
|
----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->
（编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |