EXCEL的报表设计和打印.doc

基于VB和EXCEL的报表设计及打印 0 推荐文／朱诗兵　高栓 　　在现代管理信息系统的开发中，经常涉及到数据信息的分析、加工， 最终还需把统计结果形成各种形式的报表提供给领导决策参考，或进行外 部交流。在Visual Basic中制作报表，通常是用数据环境设计器(Data Environment Designer)与数据报表设计器(Data Report Designer),或者 使用第三方产品来完成。但对于大多数习惯于Excel报表的用户而言,用以 上方法生成的报表在格式和功能等方面往往不能满足他们的要求。 　　由于Excel具有自己的对象库，在Visual Basic工程中可以加以引用， 通过对Excel使用OLE自动化，可以创建一些外观整洁的报表，然后打印输 出。这样实现了Visual Basi应用程序对Excel的控制。本文将针对一个具 体实例，阐述基于VB和EXCEL的报表设计及打印过程。 　1）创建Excel对象 　　Excel对象模型包括了128个不同的对象，从矩形、文本框等简单的对 象到透视表，图表等复杂的对象。下面简单介绍一下其中最重要，也是用 得最多的五个对象。 （1）Application对象 　　Application对象处于Excel对象层次结构的顶层，表示 Excel自身的 运行环境。 （2）Workbook对象 　　Workbook对象直接地处于Application对象的下层，表示一个Excel工 作薄文件。 （3）Worksheet对象 　　Worksheet对象包含于Workbook对象，表示一个Excel工作表。 （4）Range对象 　　Range对象包含于Worksheet对象，表示 Excel工作表中的一个或多个 单元格。 （5）Cells对象 　　Cells对象包含于Worksheet对象，表示Excel工作表中的一个单元格。 　　如果要启动一个Excel，使用Workbook和Worksheet对象，下面的代码 启动了Excel并创建了一个新的包含一个工作表的工作薄： Dim zsbexcel As Excel.Application Set zsbexcel = New Excel.Application 　　　　zsbexcel.Visible = True 如要Excel不可见，可使zsbexcel.Visible = False 　　zsbexcel.SheetsInNewWorkbook = 1 　　Set zsbworkbook = zsbexcel.Workbooks.Add 　2）设置单元格和区域值 　　要设置一张工作表中每个单元格的值，可以使用Worksheet对象的 Range属性或Cells属性。 With zsbexcel.ActiveSheet 　　　　.Cells(1, 2).Value = 100 　　　　.Cells(2, 2).Value = 200 　　　　.Cells(3, 2).Value = =SUM(B1:B2) 　　　　.Range(A3:A9) = 中国人民解放军 　　End With 　　要设置单元格或区域的字体、边框，可以利用Range对象或Cells对象 的Borders属性和Font属性： 　　With objexcel.ActiveSheet.Range(A2:K9).Borders　 边框设置 　　　　.LineStyle = xlBorderLineStyleContinuous 　　　　.Weight = xlThin 　　　　.ColorIndex = 1 　　End With 　　With objexcel.ActiveSheet.Range(A3:K9).Font　　字体设置 　　　　.Size = 14 　　　　.Bold = True 　　　　.Italic = True 　　　　.ColorIndex = 3 　　End With 　　通过对Excel单元格和区域值的各种设置的深入了解,可以创建各种复 杂、美观、满足需要的、具有自己特点的报表。 　3）预览及打印 　　生成所需要的工作表后，就可以对EXCEL发出预览、打印指令了。 　　zsbexcel.ActiveSheet.PageSetup.Orientation = xlPortrait　　 　　设置打印方向 　　zsbexcel.ActiveSheet.PageSetup.PaperSize = xlPaperA