access复杂报表怎么制作

发布时间:2020-12-26编辑:脚本学堂
本文介绍了access数据库复杂报表的制作方法,有需要的朋友参考下。

access数据库本身的报表也具有很强的实用性和强大的功能,只有当发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 excel 输出报表。很明显,使用 excel 输出报表第一个弱点就是必须同时打开 access 和 excel (当然,你得在一台机器上同时安装 access 和 excel),当然如果你和我一样拥有工作在 966mhz 上的 cpu 和 256m 内存以及大容量硬盘时,那就不必考虑了,继续吧。

首先,找到 vba 编程界面并找到"工具"菜单并单击"引用..."菜单项,在弹出的"引用"窗体中找到"现有引用"列表,在名为"microsoft excel x.0 object library"的项目前的方框内打钩。
其次,要做好一张空白的 excel 电子表格,设定好显示字体、边框、打印纸张等等并将其存盘。(以下示例中该表格名为 "temp.xls" )当然啦,直接使用空白的 excel 文件也是可以的,不过要编程自动生成表格边框、背景颜色、单元格格式等一些内容,这些涉及到 excel 编程,我以后会在 excel 专栏里详细叙述,这里就不多说了。

然后,即可在 access 里面制作打印预览窗体了,在窗体中安排 2 个命令按钮,在名为预览的按钮的 click 事件里输入代码:
 

复制代码 代码示例:
private sub excelpreview_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:reprottemp.xls")
set xlsheet = xlbook.worksheets(1)
xlsheet.cells(3, 1) = "制表日期:" + "12" + " 月"
'以上只更改了一个单元格内的数据,可根据需要无限次加入
xlbook.save
xlsheet.printpreview '如果是要打印,只要把 printpreview 改为 printout
xlbook.close
xlapp.quit
end sub