Access如何制作复杂报表

　　在读这篇文章以前首先要提醒大家Access 本身的报表也具有很强的实用性和强大的功能只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 Excel 输出报表很明显使用 Excel 输出报表第一个弱点就是必须同时打开 Access 和 Excel (当然你得在一台机器上同时安装 Access 和 Excel)当然如果你和我一样拥有工作在 MHz 上的 CPU 和 M 内存以及大容量硬盘时那就不必考虑了继续吧

　　首先找到 VBA 编程界面并找到工具菜单并单击引用菜单项在弹出的引用窗体中找到现有引用列表在名为Microsoft Excel x Object Library的项目前的方框内打钩

　　其次你要做好一张空白的 Excel 电子表格设定好显示字体边框打印纸张等等并将其存盘(以下示例中该表格名为 tempxls )当然啦直接使用空白的 Excel 文件也是可以的不过你要编程自动生成表格边框背景颜色单元格格式等一些内容这些涉及到 Excel 编程我以后会在 Excel 专栏里详细叙述这里就不多说了wwwliancom

　　然后你就可以在 Access 里面制作你自己的打印预览窗体了在窗体中安排 个命令按钮在名为预览的按钮的 click 事件里输入以下代码:

　　　　Private Sub ExcelPreview_Click()
　　Dim xlApp As ExcelApplication
　　Dim xlBook As Workbook xlSheet As Worksheet
　　Set xlApp = CreateObject(ExcelApplication)
　　Set xlApp = New ExcelApplication
　　xlAppVisible = True
　　Set xlBook = xlAppWorkbooksOpen(c:reprottempxls)
　　Set xlSheet = xlBookWorksheets()
　　xlSheetCells( ) = 制表日期: + + 月
　　以上只更改了一个单元格内的数据可根据需要无限次加入
　　xlBookSave
　　xlSheetPrintPreview 如果是要打印只要把 PrintPreview 改为 PrintOut
　　xlBookclose
　　xlAppQuit
　　End Sub

生活不易，码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠