批量打印若干工作薄中所有工作表或是指定名称的若干工作表

批量打印若干工作薄中所有工作表或是指定名称的若干工作表: （通用）批量打印若干工作薄中所有工作表或是指定名称的若干工作表.xlsm (29.28 KB, 下载次数: 461)

2018-12-29 09:43 上传

点击文件名下载附件

点击“提取工作薄内工作表名称”，可将选择的一个工作薄内所有工作表名称提取到A列。注意：只允许选择一个工作薄。并且隐藏的工作表的名称也会被提取过来。同时在B列会显示该工作表打印的页数。



点击“打印A列中的工作表或所有工作表”，首先要确定是只打印表名在A列中的工作表，还是打印所选工作薄中的所有工作表。如果选择只打印表名在A列中的工作表，那么当A列中的名称如果在某个工作薄中不存在，程序运行完后会提示每个工作薄中不存在A列名称的工作表的情况。
当选择打印全部工作表的时候，对于工作薄中的隐藏工作表是不会打印的。但如果选择打印表名在A列中的工作表，即使在A列中的这些工作表是隐藏的，也会被打印。

ps:如果在E1单元格中没有填写打印机的名称，或是打印机名称填写错误，那么会使用本工作薄打印设置里面选择的打印机。所以说，如果要指定打印机的话，可以在本程序运行前，先在本工作薄的打印设置里面选择要使用的打印机，也可以把要使用的打印机的正确名称写在E1单元格里面。
另外，要打印的工作表应该是事先都进行过打印设置的，比如要事先设置好各个工作表的：打印区域、打印标题，纸张啊，页边距，页眉等。否则会按各个工作表默认的打印设置进行打印，效果可能就不是你想要的了。



若是要按关键字来决定要打印的工作表，请到这儿下载：批量打印多工作薄中以关键字命名或是表名含关键字的工作表

又使用了几次，体验很好，就是每个工作簿的sheet是按倒序来打印的，虽然对我来说没影响（因为我的打印机可以设置倒序打印，打出来就变成顺序了），但是还是觉得sheet按顺序打印更好一些。

苏涛 发表于 2016-12-21 22:48
又使用了几次，体验很好，就是每个工作簿的sheet是按倒序来打印的，虽然对我来说没影响（因为我的打印机可 ...

已经改成按顺序打印的方式了。请下载测试。

这个功能太好用了，现在不需要多余设置，真的是省时省力。

苏涛 发表于 2016-12-22 11:46
这个功能太好用了，现在不需要多余设置，真的是省时省力。

又更新了一下，对于处于隐藏状态的工作表是否打印的问题。打印指定名称的工作表时，即使这些指定名称的工作表在工作薄中处于隐藏状态也会被打印，当要打印所选工作薄中的所有工作表的时候，对于处于隐藏状态的工作表则不打印。

试用了2次，确实又进一步更加完善了，之前打印的时候会把原来的工作簿的隐藏表显示后保存，这样原本的工作薄就变了，需要备份后来打印，现在不需要了，目前堪称完美。

这个功能太好用了，现在不需要多余设置，真的是省时省力。