EXCEL下拉菜单有多个选项，并且每个选项都对应同一表格，但表格里的数据是不同的。有办法快速全部打印吗？
发布网友
发布时间：2022-04-30 15:02
共1个回答
热心网友
时间：2023-10-08 14:46
1、制作两张表。一张为产品信息表，一张为打印表。产品信息表保存产品信息，打印表用于调用产品信息表内容进行打印。
2、代码
Sub 批量打印()
Dim i, j, n As Integer
j = InputBox(prompt:="请输入要打印的起行数字")
n = InputBox(prompt:="请输入要打印的止行数字")
For i = j To n
Sheets("打印表").Cells(*,*) = Sheets("产品信息表").Cells(i, *)
。
。
。
'打印
Sheets("打印表").select
Sheets("打印表").PrintOut Copies:=1, Collate:=True
Next
End Sub
