在读这篇文章以前首先要提醒大家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