Excel宏,如何实现自动打印功能?

打印一张,自动换一个连续的编号

Excel和word一起有邮件合并打印功能,单独的Excel没有,我们可以换一个方式:
建立2个表格,一个存数据,另一个根据需要设计成绩单,奖状等样式,2个表格用一个编号联系,用vlookup功能,把需要的数据导入,然后根据编号打印即可,如果不想显示编号,可以把编号字体改成白色。我经常这样用,很方便。
温馨提示:答案为网友推荐,仅供参考
第1个回答  2018-12-07

依次打印sheet:

Sub 依次打印sheet()
For i = 1 To Worksheets.Count
Dim myWorksheet As Worksheet
Set myWorksheet = Worksheets(i)
myWorksheet.PrintOut
Next
End Sub

第2个回答  2018-12-07
请问你需要的连续编号是指什么?是自动打开指定编号的文件然后打印?还是自动打印指定的文件为pdf,安装指定规则命名
第3个回答  2018-12-07
全选sheet-打印
第4个回答  2018-12-07
写代码能实现你的需求