Access如何制作复杂报表

在读这篇文章以前首先要提醒大家，Access 本身的报表也具有很强的实用性和强大的功能，只有当你发掘了其本身全部的功能却仍不能满足你对报表的特殊要求时才请使用 Excel 输出报表。很明显，使用 Excel 输出报表第一个弱点就是必须同时打开 Access 和 Excel (

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

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

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

Python开发网站指南 WORD版

本文档主要讲述的是Python开发网站指南；HTML是网络的通用语言,一种简单、通用的全置标记语言。它允许网页制作人建立文本与图片相结合的复杂页面，这些页面可以被网上任何其他人浏览到，无论使用的是什么类型的电脑或浏览器 Python和其他程序语言一样，有自身的一套流程控制语句，而且这些语句的语法和其它程序语言类似，都有for, if ,while 类的关键字来表达程序流程。希望本文档会给有需要的朋友带来帮助；感兴趣的朋友可以过来看看

0

查看详情

　　然后你就可以在 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