VB控制EXCEL进行报表设计及打印.doc

VB控制EXCEL进行报表设计及打印 在工控程序的开发中，经常涉及到数据信息的分析、加工，最终还需把统计结果形成各种形式的报表打印输出。在Visual Basic中制作报表，通常是用数据环境设计器(DataEnvironment 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.ApplicationSet zsbexcel = New Excel.Applicationzsbexcel.Visible = True如要Excel不可见，可使zsbexcel.Visible = Falsezsbexcel.SheetsInNewWorkbook = 1Set zsbworkbook = zsbexcel.Workbooks.Add2）设置单元格和区域值要设置一张工作表中每个单元格的值，可以使用Worksheet对象的Range属性或Cells属性。With zsbexcel.ActiveSheet.Cells(1, 2).value = 10.Cells(2, 2).value = 20.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 = 1End WithWith objexcel.ActiveSheet.Range(A3:K9).Font字体设置.Size = 14.Bold = True.Italic = True.ColorIndex = 3End With通过对Excel单元格和区域值的各种设置的深入了解,可以创建各种复杂、美观、满足需要的、具有自己特点的报表。3）预览及打印生成所需要的工作表后，就可以对EXCEL发出预览、打印指令了。zsbexcel.ActiveSheet.PageSetup.Orientation = xlPortrait 设置打印方向zsbexcel.ActiveSheet.PageSetup.PaperSize = xlPaperA4设置打印纸的打下zsbexcel.Caption = 打印预览 设置预览窗口的标题zsbexcel.ActiveSheet.PrintPreview打印预览zsbexcel.ActiveSheet.PrintOut打印输出通过打印方向、打印纸张大小的设置，不断进行预览，直到满意为止，最终进行打印输出。为了在退出应用程序后EXCEL不提示用户是否保存已修改的文件,需使用如下语句：zsbexcel.DisplayAlerts = Falsezsbexcel.Quit 退出EXCELzsbexcel.DisplayAlerts = True如此设计的报表打印是通过 EXCEL程序来后台实现的。对于使用者来说，根本看不到具体过程，只看到一张张漂亮的报表轻易地被打印出来了。4）具体实例下面给出一个具体实例，它在window2000、Visual Basic 6.0、Microsoft Office2000的环境下调试通过。在VB中启动一个新的Standard EXE工程，在“工程”菜单的“引用”选项下引用Excel Object Library；然后在Form中添加一个命令按钮cmdExcel；最后在窗体中输入如下代码：Option Explicit Dim exl As Excel.Application Dim wbook As Variant Private Sub Command1_Click() Set exl = New Excel.Application exl.Visible = True exl.SheetsInNewWorkbook = 1 Set wbook = exl.Workbooks.Add With exl.ActiveSheet.Range(A2:C9).Borders 边框设置 .LineStyle = 1 xlBorderLineStyleContinuous .Weight = xlThin .ColorIndex = 1 End With With exl.ActiveSheet.Range(A3:C9).Font 字体设置 .Size = 14 .Bold = True .Italic = True .ColorIndex = 3 End With exl.ActiveSheet.Rows.HorizontalAlignment = xlVAlignCenter 水平居中 exl.ActiveSheet.Rows.VerticalAlignment = xlVAlignCenter 垂直居中 With exl.ActiveSheet .Cells(1, 2).value = 100 .Cells(2, 2).value = 200 .Cells(3, 2).value = =SUM(B1:B2) .Cells(1, 3).value = .Range(A3:A9) = 50 End With exl.ActiveSheet.PageSetup.Orientation = xlPortrait xlLandscape exl.ActiveSheet.PageSet