批量打印多工作薄中以关键字命名或是表名含关键字的工作表

使用条件：有若干个工作薄，每个工作薄有若干工作表，要从每个工作薄中按关键字打印工作表。按着指定的关键字确定要打印哪些工作表，关键字可以是手动输入的，也可以是各自工作薄名称为关键字。然后再区分要打印的工作表名称是否与关键字完全相同，或是关键字仅为要打印的工作表名称中的一部分。

表名符合关键字的工作表即使处于隐藏状态，也同样会被打印出来。

1、选择关键字的取法：以各工作薄的名称为关键字，或是以手动输入的字符为关键字。
2、关键字确定好后，要确定要打印的工作表的名称是否与关键字完全相同，还是说关键字仅是要打印的工作表名称中的一部分。
3、最后就是选择要打印特定名称工作表的若干个工作薄了。


ps:如果在B2单元格中没有填写打印机的名称，或是打印机名称填写错误，那么会使用本工作薄打印设置里面选择的打印机。所以说，如果要指定打印机的话，可以在本程序运行前，先在本工作薄的打印设置里面选择要使用的打印机，也可以把要使用的打印机的正确名称写在B2单元格里面。

另外，要打印的工作表应该是事先都进行过打印设置的，比如要事先设置好各个工作表的：打印区域、打印标题，纸张啊，页边距，页眉等。否则会按各个工作表默认的打印设置进行打印，效果可能就不是你想要的了。




批量打印多工作薄中以关键字命名或是表名含关键字的工作表： （通用）批量打印多工作薄中以关键字命名或是表名含关键字的工作表.xlsm (29.81 KB, 下载次数: 289)

2017-3-28 10:52 上传

点击文件名下载附件

如果要打印每个工作薄中的多个指定名称的工作表，请到这儿下载：批量打印若干工作薄中所有工作表或是指定名称的若干工作表

太感谢了，试了一下，正是我想用的。一直在找寻，为了这个，自己这几天还专门研究了excel的VBA，结果只学到了皮毛，不想深研究了，累，没想到楼主今天给弄出来了，谢谢！！！

请问批量打印时能否实现按顺序设置页码？

杜大弓 发表于 2016-12-27 18:45
请问批量打印时能否实现按顺序设置页码？

如果你每个excel文件中的要打印的工作表在打印设置的时候，设置了页脚里面的页码，那么批打出来后，每个exce文件里的要打印的工作表都是带有页码的，但是这个页码只是这一个工作表的页码，不能与其他工作薄中的工作表页码按顺序接上。如果你想要把多个工作薄中的某些工作表按顺序加页码打印出来，你可以换个思路，就是把这些要打印的工作表都收集到一个工作薄中，然后再把这些工作表按需要的先后顺序排序，最后把所有工作表选中，在页面设置里面加上页脚页码再打印就可以了。需要用的插件可以到下面这两个位置下载。


收集多个工作薄中指定名称的工作表或是所有工作表（通用）





提取选定工作薄中所有工作表名称及对多个选定工作薄中工作表排序或批量修改工作表名称

非常感谢