无聊的疯子原创《Excel文件批量打印》

无聊的疯子 · 发表于 2015-11-21 21:51

本帖最后由无聊的疯子于 2015-11-27 16:27 编辑

前不久有个顾客来打了96个工作薄，每个工作薄都要重新设置一下页面，
打印的区域也都不相同，有的要打一页，有的要打多页，，

当时写了个程序，自动把主要的东西都设置好以后再手工设置一下才打印，，96个工作薄折腾了我差不多1个小时才打完

于是就有了做一个通用工具出来的想法，

因为是通用工具，只能用到表格样式都相同的文件里，比如说要打印的工作表名字都是一样的，或者位置都是一样的

当然还有要打印的区域也都是一样的，，

所有的参数都是在单元格里进行设置的，设置好以后直接点开始打印即可。。
先来看一下设置图片吧：

单元格参数说明：
B2 要打印的文件所在位置，这个路径必须是以 “\” 结尾的有效路径
B3 打印后是否移动源文件，如果文件太多，建议打印后将文件移动到 B4 指定的路径中
                                    万一在打印过种中遇到错误或打印故障，不得不重新开始始，
                                    不至于手工去排除之前已经打印过的文件。
B4 打印后文件要移动到的位置，和B2一样，也必须是以 “\” 结尾的有效路径，
                                    这里并没有添加自动根据路径建立文件的代码，所以还得自己勤快点多动手。
B5 是否保存对源文件的修改，如果设置为 True，则打印后会对文件进行保存，这个看个有需要来设置吧
B6 打印的文件类型，这个必须得是文件名.后缀的方式来录入，图片里使用了通配符，目的就是多匹配
                           文件类型嘛。。。必须得是可打印的 excel 类型，我这里用的 *.xls* 是什么意思就自己去百度通配符吧
B7 要打印的表名或位置，这里主要说明一下工作表名字是纯数字的比如 2 ，如果要打名字为2的表，在输入时应该输入 '2
                                 目的将数字转换成文本型数字，这样才能匹配为表名字，否则是匹配表的位置，
B8 打印区域，可以指定区域，指定时必须是有效的单元格地址，如果要打印整张工作表，该单元格应为空
B9 是否缩小字体填充，这个，，，不用多说吧，，不懂的话就百度一下吧
B10 是否调用打印预览，主要是刚开始调试的时候用，调试好了记得关哦，不然慢慢点也麻烦，，
                              因为你只能看，，不能对表做操作
B11 应用程序是否可见，这程序是单独创建了一个Excel程序来打开文件的，并且禁用了该程序的宏，
                                 防止宏病毒或者其它事件，要用打印预览这里就得设置为 True
B11 是否设置打印参数，主要是设置打打印起始页，结束页，打印份数，如果设置为True,那么B12：B13最少都得设置为1
B12：B13  这个不做说明，，人懒了，，不解释

E2 是否设置页边距，设置为True，E3：E6 最小可以设置为0，最大为10，单位厘米，，
                           注意一下纸张大小哦，别设置为10以后打出来没东西了
E3：E6对应的页边距设置，，这个不做说明，，人懒了，，不解释
E7 是否设置页眉页脚边距，和E2 一样的，，不重复说明
E8：E9  同样，这也不做说明
E10：E11，打印时水平和垂直居中，，这不用说明吧？
E12 是否打印行标题，如果打印出来很多页每页都想要有标题，，这里要设置为 True 哦
E13 行标题，这个必须得是行：行的引用方式，比如你的标题有3行 2：4  ，有1行 1：1,或者 2：2
               别问我这里说的，2：4 ，1：1，2：2 是什么意思，，，人懒，不解释
E14 纸张大小，人懒了，直接把枚举值复制出来用了，，H：K 列有名称和说明的，自己看一下吧，反正设置了下拉的

因为是我做的第一个通用程序，所以暂时只能打印一个工作表，
同时也有可能存在很多问题，欢迎大家在使用过程中指出，
有什么好的建议或意见都不要藏在自己大脑里哦，，我是找不到的。。。

为了早日实现我在论坛里的万完梦，下载该附件将会收取论坛币 50 。。。签到5天就有了
希望大家多多理解和支持，让我早日成为万完富

万恶的回复可见~~~

游客，如果您要查看本帖隐藏内容请回复

同时为了照顾新人，我也放一份完全一样的附件上来，只售10金币，，签到一次就有了，别太懒，，

游客，如果您要查看本帖隐藏内容请回复

有大家的支持，我们才有更高的动力。。。有钱的记得下载高价的哦，，

转载请说明出处。。。

升级版连接如下：
http://www.excelpx.com/thread-373341-1-1.html

无聊的疯子 · 发表于 2015-11-21 21:52

本帖最后由无聊的疯子于 2015-11-21 22:04 编辑

哎呀，，居然只能卖21个金币~~

留个图片看看有多少金币~~

9162.。。加油吧，，友友们

jzkwf · 发表于 2015-11-21 21:59

mautour · 发表于 2015-11-21 22:03

{:101:}{:101:}{:101:}感谢分享

高 · 发表于 2015-11-21 22:34

收藏了

Excel学徒123 · 发表于 2015-11-21 22:35

收藏了

thelastdance · 发表于 2015-11-22 08:07

收藏了

5201314 · 发表于 2015-11-22 08:37

无聊的疯子原创《Excel文件批量打印》
http://www.excelpx.com/thread-373070-1-1.html

lichuanboy44 · 发表于 2015-11-22 08:40

看看吧，学学

wp8680 · 发表于 2015-11-22 09:41

		自动登录	找回密码
密码			注册

[待分类] 无聊的疯子原创《Excel文件批量打印》

本帖子中包含更多资源

评分

本帖子中包含更多资源