excel的报表设计及打印

《excel的报表设计及打印》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、基于VB和EXCEL的报表设计及打印0推荐文／朱诗兵　高栓　　在现代管理信息系统的开发中，经常涉及到数据信息的分析、加工，最终还需把统计结果形成各种形式的报表提供给领导决策参考，或进行外部交流。在VisualBasic中制作报表，通常是用数据环境设计器(DataEnvironmentDesigner)与数据报表设计器(DataReportDesigner),或者使用第三方产品来完成。但对于大多数习惯于Excel报表的用户而言,用以上方法生成的报表在格式和功能等方面往往不能满足他们的要求。　　由于Excel具有自己的对象库，在Vis

2、ualBasic工程中可以加以引用，通过对Excel使用OLE自动化，可以创建一些外观整洁的报表，然后打印输出。这样实现了VisualBasi应用程序对Excel的控制。本文将针对一个具体实例，阐述基于VB和EXCEL的报表设计及打印过程。　1）创建Excel对象　　Excel对象模型包括了128个不同的对象，从矩形、文本框等简单的对象到透视表，图表等复杂的对象。下面简单介绍一下其中最重要，也是用得最多的五个对象。（1）Application对象　　Application对象处于Excel对象层次结构的顶层，表示Excel自身的运

3、行环境。（2）Workbook对象　　Workbook对象直接地处于Application对象的下层，表示一个Excel工作薄文件。（3）Worksheet对象　　Worksheet对象包含于Workbook对象，表示一个Excel工作表。（4）Range对象　　Range对象包含于Worksheet对象，表示Excel工作表中的一个或多个单元格。（5）Cells对象　　Cells对象包含于Worksheet对象，表示Excel工作表中的一个单元格。　　如果要启动一个Excel，使用Workbook和Worksheet对象，下面的

4、代码启动了Excel并创建了一个新的包含一个工作表的工作薄：DimzsbexcelAsExcel.ApplicationSetzsbexcel=NewExcel.Application　　　　zsbexcel.Visible=True如要Excel不可见，可使zsbexcel.Visible=False　　zsbexcel.SheetsInNewWorkbook=1　　Setzsbworkbook=zsbexcel.Workbooks.Add　2）设置单元格和区域值　　要设置一张工作表中每个单元格的值，可以使用Worksheet对

5、象的Range属性或Cells属性。Withzsbexcel.ActiveSheet　　　　.Cells(1,2).Value="100"　　　　.Cells(2,2).Value="200"　　　　.Cells(3,2).Value="=SUM(B1:B2)"　　　　.Range("A3:A9")="中国人民解放军"　　EndWith　　要设置单元格或区域的字体、边框，可以利用Range对象或Cells对象的Borders属性和Font属性：　　Withobjexcel.ActiveSheet.Range("A2:K9").Bo

6、rders　'边框设置　　　　.LineStyle=xlBorderLineStyleContinuous　　　　.Weight=xlThin　　　　.ColorIndex=1　　EndWith　　Withobjexcel.ActiveSheet.Range("A3:K9").Font　　'字体设置　　　　.Size=14　　　　.Bold=True　　　　.Italic=True　　　　.ColorIndex=3　　EndWith　　通过对Excel单元格和区域值的各种设置的深入了解,可以创建各种复杂、美观、满足需要的、具有自己

7、特点的报表。　3）预览及打印　　生成所需要的工作表后，就可以对EXCEL发出预览、打印指令了。　　zsbexcel.ActiveSheet.PageSetup.Orientation=xlPortrait　　'　　设置打印方向　　zsbexcel.ActiveSheet.PageSetup.PaperSize=xlPaperA4　　　'　　设置打印纸的打下　　zsbexcel.Caption="打印预览"　　　　　　　'设置预览窗口的　　标题　　zsbexcel.ActiveSheet.PrintPreview　　　　　　'打印预

8、览　　zsbexcel.ActiveSheet.PrintOut　　　　　　　　'打印输出　　通过打印方向、打印纸张大小的设置，不断进行预览，直到满意为止，最终进行打印输出。　　为了在退出应用程序后EXCEL不提示用户是否保存已修改的文件,需使用如