作者：绿色风
分类：
时间：2022-08-18
浏览：82
楼主
syz105729913 |
如需要批量打印多个工作表中的某一页可以用
先ALT+F11调出VBE编辑器，插入一个模块复制以下代码
- Sub 自动打印工作表()
- Dim sh As Integer
- Dim x
- Dim y
- Dim sy
- Dim syz
- Dim a As Integer
- Dim b As Integer
- Dim c As Integer
- x = InputBox("请输入起始工作表名字:")
- sy = InputBox("请输入结束工作表名字:")
- a = InputBox("起始页码:")
- b = InputBox("结束页码:")
- c = InputBox("几份:")
- y = Sheets(x).Index
- syz = Sheets(sy).Index
- For sh = y To syz
- Sheets(sh).Select
- Sheets(sh).PrintOut a, b, c
- Next sh
- End Sub
|
2楼
罗刚君 |
不错 |
3楼
ljx63426 |
不错,学习了,谢谢!!! |
4楼
ljx63426 |
学习了,谢谢!!!
 |
5楼
mrshz |
谢谢 |
6楼
brave858 |
谢谢！我有一个问题急需解决，请高手帮忙，就是小学生学籍批量套打问题：学籍工作簿内有三个工作表，学籍表（2页），学生信息（有3000个，附件这里只是举例的），教师评语，要打印的是学籍表（双面），学籍表的内容在后两个表里。
 海滨小学学籍表套打模板.zip
|
7楼
brave858 |
谢谢！我有一个问题急需解决，请高手帮忙，就是小学生学籍批量套打问题：学籍工作簿内有三个工作表，学籍表（2页），学生信息（有3000个，附件这里只是举例的），教师评语，要打印的是学籍表（双面），学籍表的内容在后两个表里。 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一