ＶＢ程序设计――数据表通用打印程序.docVIP

ＶＢ程序设计――数据表通用打印程序 　　摘要：本文介绍在Visual Basic程序中，利用Visual Basic操作Microsoft Excel，通过一个可携带记录集参数的过程，实现对结构不同、标题不同的各类数据表的打印；克服了Visual Basic报表设计功能的局限性，解决了在程序运行中，动态生成的各种结构不同的记录集对应的数据表的打印输出问题；统一并简化了Visual Basic应用程序对各类不同结构数据表的设计及打印的实现方法。 　　关键词：Visual Basic；Excel；数据表；打印 　　中图分类号：TP311文献标识码：A文章编号：1009-3044(2008)09-11669-04 　　 　　The VB Program Design: Universal Procedure to Print Report 　　ZHENG Xiao-hong 　　(From the Computer Science Department of Beijing Dongcheng Audlt College, Beijing 100020, China) 　　Abstract: This article will introduce, using the Visual Basic operation Microsost Excel in a application writen Visual Basic, how to print the dissimilar structure and diferen title reports with a procedure that takes a recordset parameter and a string type parameter. The procedure overcame the limit of function of the Visual Basic report design; solved the problem to print the different structure recordsets which were produce in a routine; unified and simplified the methos to design and print reports to each kind of different structure in a application writen Visual Basic. 　　Key words: Visual Basic; Excel; Print Report 　　 　　1 Visual Basic系统中报表功能的局现限 　　 　　尽管Visual Basic系统中提供了设计打印报表功能，但是，需要对各种结构不同的数据表分别去设计，这是一项繁琐的工作，并且要在程序设计阶段确定数据表的结构。然而，在信息管理系统中，常常需要程序运行中，根据用户输入条件而生成各种结构不同的记录集，对于这种程序运行中生成的记录集，在程序设计时往往不能确定表的结构，要打印输出这种动态表，Visual Basic中的报表设计功能是无能为力的。 　　 　　2 Visual Basic数据表通用打印程序 　　 　　本人在信息管理系统开发应用中，利用VB操作Excel，设计一个带参数的过程，实现对各种结构不同的数据表的打印输出，使得对各类不同结构数据表的设计及打印统一并简化为对通用打印过程的一次调用，大大提高了VB程序设计中报表设计和打印的效率。 　　2.1 通用报表打印过程的参数 　　在标准模块中声明Public报表打印过程，过程的头如下面语句所示： 　　Public Sub TablePrint(rs As ADODB.Recordset, Title As String) 　　其中TablePrint为过程名，参数rs是ADO记录集对象，参数Title是字符串变量，这两个参数分别将要打印报表对应的记录集和报表标题带入到打印过程，在打印过程中从这两个参变量中获取并输出要打印报表的标题、结构及数据。 　　2.2 在Visual Basic中引用和创建外部Excel对象 　　在VB中操作Excel，首先要添加引用“Microsof Excel Object Library”。在设置引用Excel对象之后，在过程中声明Excel应用程序对象、工作簿对象并创建相关对象实例。下面语句依次声明了Excel应用程序对象xlapp、工作簿对象xlbook。 　　Dim xlapp As Excel.Application 　　Dim xlbook As Excel.Workbook