ACCESS导出数据或列表转化EXCEL实现万能套打模式。⑴解决美观灵活打印，⑵手机查阅资料目的。

时　间:2021-10-25 10:49:36
作　者:张旭军   ID：72228  城市：杭州
摘　要:ACCESS导出数据或列表转化EXCEL实现万能套打模式。
正　文:

用过ACCESS的有没有人感觉数据库的报表打印功能是不是感觉十分难看，不实用。

遇到的以下问题，ACCESS无法满足日常需要：

１》打印的报表篇幅大，内容太多，排版难度太大

２》不同的打印风格有特别需求，表格随时都可能要改动，数据量太大

３》无法彩色打印，无法美观视觉。有公司LOGO底纹打印。。。。

4》手机无法查询数据库参数。

 ACCESS的窗体内容

                                                        【希望的打印要求】

以下为生成填充的EXCEL模块

 总结：

无论内容有多少，表的结构多么复杂多变，都不需要程序员进行修改，

在EXCEL的万能表里通过VBA变得十分简单
想单页打印，LOGO打印，手机查资料解决ACCESS与日常脱节的诸多问题。

【使用必知：】

EXCEL一定要有开发工具，宏必须开启。

如果有镶套运算，迭代运算改成最大值

在工作薄里转化好，以后不需要开启宏。

被复制的表，建议把打印格式，函数运算，表格保护开启。。。不然后期工作量也不小

如果发现表太多都不是你要的，【删除法】

　　从你需要删除的第一个表名称开始按着SHIFT键不放，鼠标点表移动的最大值或者找到你需要删除的表为止，点右键选择‘删除表’即可大量删除表文件。

黄区域为设置区域

　　B2格的黄区域　　　　　填写　　参考表格的【表名称】

　　B3格开始往右侧黄区域　填写　　对应【表名称】里的对应单元格位置

 　　灰色的第三行　　自己填写表名称的标题　方便自己核对是否错位，也可以对内容进行排序

【第三行十分重要】第一个表就可以检验　数据是否与表格对应该，建议复制到另外一个表里。防止被【清除数据】清除，不同属性的表，都把设置功能的表复制过去当操作平台。

填充单元格地址的下方区域　每个单元格的内容是未来的【表名称】

因此在ACCESS导出的表中，必须在左侧增加一列【表名称】，这里是为自动生成表名称服务的。

最后一步　　点击生成并填充即可　在本薄中自动生成【对应的名称】的表

如果以后再增加新列表是不是把所有的列表都再操作一次？

回答是不需要　　你只要先点【清除数据】，系统会清除第三行以下所有的内容
再把新增加的列表导出复制到第三行以下位置即可在后边自动新增新表

如果有重复，表的名称会自动补（２）很容易发现　　你只需要找到按上述删除办法操作即可

点击下载此附件