Access制作复杂报表(Excel输出复杂报表)

如何制作复杂报表——使用Excel输出复杂报表
在阅读本文之前，首先要提醒大家，Access自带的报表也是非常实用和强大的。只有当你已经发现了它本身所有的功能但仍然不能满足你对报表的特殊要求时，请使用Excel输出报表。很明显，用Excel输出报表的第一个弱点就是你要同时打开Access和Excel(当然你要在一台机器上同时安装Access和Excel)。当然，如果你像我一样有一个工作在966MHz的CPU，256M内存，大容量硬盘，就不用考虑了。去吧。
示例提示:首先，找到VBA编程接口，找到“工具”菜单，然后单击“引用”菜单项。在弹出的“引用”表单中，找到“已有引用”列表，名为“Microsoft Excel X.0对象库”的项目前面的框
其次，你要做一个空白色的Excel电子表格，设置显示字体、边框、打印纸等。并保存它。(下例中表格命名为\"temp.xls\ ")当然，直接使用空白色Excel文件也是可以的，但是你得编程自动生成表格边框、背景色、单元格格式等。这些涉及到Excel编程，我会在后面的Excel专栏里详细描述，这里就不多说了。
然后可以在Access中制作自己的打印预览窗体，并在窗体中排列2个命令按钮。在名为preview的按钮的click事件中输入以下代码:
private sub Excel preview _ click()
dimxlapp As Excel . application
dimxlbook As workbook，XL sheet As workbook
Set xlApp = CreateObject(\ " Excel。application \ ")
Set XL app = New Excel。应用程序
xlApp。visible = True
Set XL book = XL app。workbooks . Open(\ " c:\ \ report \ \ temp . xls \ ")
set XL sheet = XL book . worksheets(1)
XL sheet . cells(3，1) = \ "制表日期:\"+\"12\"+\ "月份\"
@#以上仅作变动。可以添加
xlbook.save
xlsheet。根据需要多次打印预览@ #。如果要打印，只要把printpreview改成print out
XL book . close
XL app . quit
end sub
OK，然后