Access如何制作报表

在读这篇文章以前第1步要提醒我们，Access 本身的报表也拥有很强的实用性和强大的功能，只有当您发掘了其本身所有的功能却仍不能够满足您对报表的特殊需要时才请使用 Excel 输出报表。很明显，使用 Excel 输出报表第一个弱点能够必须同时打开 Access 和 Excel (当然，您得在一台机器上同时安装 Access 和 Excel)，当然可能您和我一样拥有工作在 966MHz 上的 CPU 和 256M 内存还有大空间硬盘时，那就不必考虑了，继续吧。

第1步找到 VBA 编程界面并找到"软件"菜单并点击"引用..."菜单项，在弹出的"引用"窗体中找到"现有引用"列表，在名为"Microsoft Excel x.0 Object Library"的项目前的方框内打钩。

接下来，您要做好一张空白的 Excel 电子表格，设定好显示字体、边框、打印纸张等等并用其存盘。(下面示例中该表格名为 "temp.xls" )当然啦，直接使用空白的 Excel 文件也是能够的，但是您要编程自动生成表格边框、背景颜色、单元格格式等多数内容，这些涉及到 Excel 编程，我将来会在 Excel 专栏里详细叙述，这里就不多说了。

接下来您就能够在 Access 里面制作您个人的打印预览窗体了，在窗体中安排 2 个命令选项，在名为预览的选项的 click 事件里敲入下面代码:

Private Sub ExcelPrevIE游览器w_Click()
Dim xlApp As Excel.Application
Dim xlBook As Workbook, xlSheet As Worksheet
Set xlApp = CreateObject("Excel.Application")
Set xlApp = New Excel.Application
xlApp.Visible = True
Set xlBook = xlApp.Workbooks.Open("c:\reprot\temp.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(3, 1) = "制表日期:" + "12" + " 月"
'以上只更改了一个单元格内的数据，可根据就得没有限次加入
xlBook.Save
xlSheet.PrintPrevIE游览器w '可能是要打印，只要把 PrintPrevIE游览器w 改为 PrintOut
xlBook.close
xlApp.Quit
End Sub

OK，接下来就能够点击该选项看看生成的表格如何了

学电脑知识尽在www.zzzyk.com 电脑知识网