ExcelVBA灵活批量打印工作表

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

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


01.PNG (84.25 KB, 下载次数: 0)
下载附件
2023-7-5 09:57 上传

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


02.PNG (45.66 KB, 下载次数: 0)
下载附件
2023-7-5 09:56 上传

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


03.PNG (51.17 KB, 下载次数: 0)
下载附件
2023-7-5 09:57 上传

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


04.PNG (39.29 KB, 下载次数: 0)
下载附件
2023-7-5 09:57 上传

5、批量打印已选工作表(状态栏将提示打印进度和打印状态。可以将已选工作表名导出为txt)
下载地址:

批量打印工作表V3.2.zip
(69.77 KB, 下载次数: 184)
2023-7-5 09:49 上传
点击文件名下载附件
下载积分: 吾爱币 -1 CB

工作, 下载次数

a2523188267   

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


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



01.PNG (33.7 KB, 下载次数: 0)
下载附件
2023-7-5 11:58 上传

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

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


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

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

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

楼主辛苦了
taochangpeng   

感谢楼主,收藏备用
lezhitian   

谢谢  收藏 下看看.
arg10   

编的挺好以前也弄过现在全忘光了
您需要登录后才可以回帖 登录 | 立即注册

返回顶部