ExcelVBA灵活批量打印工作表

panison · 发表于 2023-7-5 09:53

本帖最后由 panison 于 2023-7-5 12:16 编辑

由于工作原因，需要处理大量工作表打印，系统自带的打印功能不够灵活，因此写了这个一个程序。
本程序首发吾爱破解论坛，转载请注明出处。仅个人免费使用，不得商用。建议程序运行在MS Excel 2010及以上版本，未在WPS测试。

若有意见和建议欢迎发帖留言。

关于留言的答复汇总：
01、回复a2523188267：该批量打印功能针对的是同一工作簿中不同工作表的批量打印
02、回复ULcee ：支持PDF虚拟打印机（通过判断打印机名称是否包含pdf/Pdf/PDF）
03、回复manbajie：【页面设置】调整完毕后，会弹出对话框“是否将工作表已用区域设置为打印区域”，选择“是”即可。可以解决有数据但是没打印的问题。
04、回复cxx0515：据了解，WPS对VBA的兼容性不是很好。这是我一直无法丢掉MS Excel 的主要原因。

1、执行宏 PrintSheets

2、选择打印机（调用的是系统表单。支持PDF虚拟打印机输出为PDF文件【通过判断打印机名称是否包含pdf/Pdf/PDF】）

3、页面设置（调用的是系统表单。虽然设置是针对的活动工作表，但是设置的值将应用到所有选择的工作表。设置完毕后，多行文本框内将显示设置的值）

4、选择工作表（可以排序、模糊匹配表名进行筛选；可以使用Ctrl/Shift 进行单选和多选）

5、批量打印已选工作表（状态栏将提示打印进度和打印状态。可以将已选工作表名导出为txt）

下载地址：

批量打印工作表V3.2.zip (69.77 KB, 下载次数: 442)

a2523188267 · 发表于 2023-7-5 11:31

要说明一下适用的场景。不明白所谓的批量，其实有很多的办法实现

panison · 发表于 2023-7-5 11:58

manbajie 发表于 2023-7-5 11:30
表格打印每一个工作表最好都要看一遍不然打印没在一张上面麻烦这个问题咋解决

可以通过【页面设置】功能调整，另外【页面设置】调整完毕后，会弹出对话框“是否将工作表已用区域设置为打印区域”，选择“是”即可。

ytw6176 · 发表于 2023-7-5 10:04

不是很理解批量打印工作表，是有几百个不同的工作表要打印这个场景吗

panison · 发表于 2023-7-5 10:07

ytw6176 发表于 2023-7-5 10:04
不是很理解批量打印工作表，是有几百个不同的工作表要打印这个场景吗

是的。就是针对的这种情形。

987fw · 发表于 2023-7-5 10:13

先保存，暂时用不上，楼主辛苦了

sdwlzjj · 发表于 2023-7-5 10:23

楼主辛苦了

lezhitian · 发表于 2023-7-5 10:47

谢谢收藏下看看.

arg10 · 发表于 2023-7-5 10:50

编的挺好以前也弄过现在全忘光了

blindcat · 发表于 2023-7-5 10:54

WPS是不是大多数版本都不支持宏啊

panison · 发表于 2023-7-5 10:56

blindcat 发表于 2023-7-5 10:54
WPS是不是大多数版本都不支持宏啊

我知道免费下载的版本是不支持VBA的。不过有盾就有矛。

ULcee · 发表于 2023-7-5 11:28

批量转换成PDF如何？

帐号		自动登录	找回密码
密码			注册[Register]

[Windows] ExcelVBA灵活批量打印工作表

免费评分

本帖被以下淘专辑推荐:

免费评分