rsview32下实现excel报表打印

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

1、Rsview32下实现Excel报表打印王瑾源中冶集团包头钢铁设计研究总院自动化所摘要介绍在RSview32环境下利用VB编程实现Excel报表及图表打印关键词Rsview32VB;Excel对象PrintExcelformsforRsview32WANGJINYUANBERISofMCCAbstract:useVBprogramtoprintExcelformsandchartsforRsview32Keywords:Rsview32VB;ExcelobjectRSview32是ROCKWELL主要针对AB公司PLC所开发的一套优秀的工作站设计软件它功能强大界面友好易于操作它支持OBDCOp

2、enDataBaseConnectivity和ActiveX控件的使用另外还可以支持汉字的显示一般情况下RSview32设计的工作站可以打印但只是简单的屏幕打印即我们平常所说的PrintScreen它可以将整幅画面输出而不能选择性地打印这在许多场合下这不能满足我们的需要在实际应用中使用Excel报表的人很多用户往往希望数据应用系统也能生成Excel格式的报表,甚至生成Excel格式的图表那么在Rsview32环境下是否能实现呢答案是肯定的我们利用RSview32提供的VBA设计环境可以实现这些功能但是这要求软件中安装有Excel应用程序而且编程人员要有一定的VisualBasic编程基础通过使

3、用Excel对象可以在VBA数据库程序中生成Excel报表及图表并利用Excel本身的功能完成打印预览打印等功能Excel对象封装了MicrosoftExcel的全部元素例如Application对象表示Excel应用程序Worksheet对象表示Excel工作表等等利用Excel对象提供的属性方法和事件就可以在应用程序中生成Excel报表及图表Application对象Workbook对象Worksheet对象Range对象Excel对象模型Excel对象模型描述了Excel中对象之间的结构关系如下图所示上图所示的对象模型中列出了几个常用的Excel对象下面简单介绍这些对象1Applicat

4、ion对象Application对象表示Excel应用程序在Excel对象模型中Application对象处于模型的顶端通过使用Application对象可以访问模型中的其他对象从而可以控制Excel应用程序的外观或功能等等2Workbook对象Workbook对象表示Excel中的工作簿即对应一个Excel文件通过使用Workbook对象可以实现对Excel工作簿的各种控制3Worksheet对象Worksheet对象表示Excel中的工作表通过使用Worksheet对象可以实现对Excel工作表的各种控制4Range对象Range对象表示Excel中的区间例如可以表示Excel的单元格几个

5、单元格一行一列或一个选中的区域通过使用Range对象可以实现对Excel单元格或选中区域的各种控制下面介绍如何实现1)将Excel对象库加载到当前程序中方法如下单击Tool菜单中的reference命令在弹出的对话框中选择MicrosoftExcel8.0ObjectLibrary选项如图所示单击OK按钮则Excel对象库被加载到当前程序中2在程序中声明Excel对象以下代码声明了一个Application对象一个Workbook对象和一个Worksheet对象DimexlappAsNewExcel.ApplicationDimexlBookAsExcel.WorkbookDimexlShee

6、tAsExcel.Worksheet3使用Set命令建立Excel对象如下程序代码建立了一个Application对象SetexlApp=NewExcel.Application4使用Excel对象的属性或方法完成报表的设计其中包括数据的传送报表的刷新由于代码较多将在后面的程序中给出5使用Quit方法释放Excel对象如下程序代码结束了Application对象的生命期并释放了它占用的资源exlApp.Quit6设计具体的报表打印格式我们以记录烟气经过冷却器的入口温度和出口温度在一天中的变化情况为例这里将设计一张报表和一张图表具体实现步骤要在Excel环境下完成首先设计Excel模板tb1.x

7、ls,用于存放报表及图表的具体显示格式这里把报表放在工作表的Sheet2,图表放在工作表的Sheet3,并把Sheet2sheet3分别改名为TableChart表中相应的数据单元格均设置了缺省值具体格式如下图所示图表模板报表模板7将报表打印输出如下程序代码实现了报表的预览和打印exlApp.Workbooks("tb1").Sheets("Table").SelectActiveWindow.S