利用Visual Basic设计打印复杂报表 |
|
一.用VB 缔造外部EXCEL对象 大多数大型ActiveX-enabled 利用程序和其它ActiveX部件，在它们的对象 品位中都提供了一个顶层外部可 缔造对象 。该对象提供了对该 品位中其它对象的 拜访，而且还提供对整个 利用程序起作用的 步骤和属性 。 例如，每个MicrosoftOffice 利用程序提供一个顶层Application对象 。下面语句显示了对Microsoftoffice/9.shtml'target='_blank'class='article'>Excel的Application对象的 引用： DimxlAppAsExcel.Application SetxlApp=NewExcel.Application 而后， 可以用这些变量来 拜访在EXCEL 利用程序中的 附属对象、以及这些对象的属性和 步骤 。例如： SetxlApp=CreateObject("Excel.Application") ‘激活EXCEL 利用程序 xlApp.Visible=False‘ 潜藏EXCEL 利用程序窗口 SetxlBook=xlApp.Workbooks.Open(strDestination) ‘ 打 动工作簿，strDestination为一个EXCEL报表文件 SetxlSheet=xlBook.Worksheets(1) ‘设定工作表 二.用EXCEL97设计报表的模版文件 EXCEL97是一个十分优异的 缔造报表的工具 。它提供的单元格任意合并、拆分和绘图 性能 根本上 可以满足设计全部复杂报表的需要 。它对任意一个单元格的 格局 随便操纵，更为为所欲为地设计报表提供了 壮大的 支撑 。 依据消费者提供的报表，我们 可以很快在EXCEL里生成模版文件 。所谓生成模版文件只不过为了满足消费者多方面的需要而设计的 。也是为了 合适报表以后的更改而做的丝毫 预备工作 。例如消费者需要打印几百张职工履历表，但其 格局都是 统一的，而且随着 工夫和实际状况的 变迁，表格 格局有可能需要转变，我们设计一个模版文件显然 可以“以不变应万变”了 。 生成工作表时我们 该当记录下要填充内容的单元格编号和该单元格内要填充的数据字段 。这样 构成一个表格，在写程序时 一览无余 。如： Cell(4,2)职工姓名Cell(6,6)毕业学校 Cell(4,4)职工性别Cell(6,7)所学专业 Cell(4,6)职工民族Cell(6,9)工作 工夫 (表一) 在程序里我们固然不要对模版文件进行操作了，我们 惟独要对模版文件的一个拷贝进行操作就行(这也是我们设计模版文件的一个 目标和 好处) 。如下面的例子： DimstrSource,strDestinationAsString strSource=App.Path&"ExcelsRegisterFee.xls" ‘RegisterFee.xls便是一个模版文件 strDestination=App.Path&"ExcelsTemp.xls" FileCopystrSource,strDestination ‘将模版文件拷贝到一个暂时文件 三.生成工作表内容 有了上述两步工作的铺垫，我们下面接着就 惟独依据(表一)的 格局给各单元格赋值了 。如： datPrimaryRS.Recordset.MoveFirst ‘datPrimaryRS为Data控件 IfIsNull(datPrimaryRS.Recordset!姓名)=FalseThen xlSheet.Cells(4,2)=datPrimaryRS.Recordset!姓名 EndIf IfIsNull(datPrimaryRS.Recordset!性别)=FalseThen xlSheet.Cells(4,4)=datPrimaryRS.Recordset!性别 EndIf IfIsNull(datPrimaryRS.Recordset!民族)=FalseThen xlSheet.Cells(4,6)=datPrimaryRS.Recordset!民族 EndIf 四.打印报表 生成了工作表后，就 可以对EXCEL发出打印指令了 。 留神在执行打印操作之前应该对EXCEL暂时文件执行一次 保留操作， 免得在退出 利用程序后EXCEL还 揭示消费者是不是 保留已 批改的文件，让消费者感觉莫名其妙 。如下语句： xlBook.Save‘ 保留文件 xlSheet.PrintOut‘执行打印 xlApp.Quit‘退出EXCEL 至此读者应该看到，我们设计的报表打印是通过EXCEL程序来 后盾实现的 。消费者 根本看不到具体过程，他们只看到一张张美丽的报表轻易地被打印出来了 。 |
