Question

我设置了一个打印excel中各个sheet文档的宏，但是我想让它循环打印

（sheet1中可以有个删选键，选择不同数字123456。。。，对应后面的sheet中的内容发生变化，然后在打印，就是希望循环打印，将123456。。。的不同内容全打印出来）

Sub 宏2()
'
' 宏2 宏
'
' 快捷键: Ctrl+q
'
Sheets(Array("Sheet1", "封面", "图纸清单", "目录", "管线清单", "质量尾项清单", "管道尾项清单", "盲板安装记录", _
"管道系统耐压试验条件确认与试验记录", "压力试验检验报告", "管道吹扫清洗检验记录", "完工证明", "支架检验清单")).Select
Sheets("Sheet1").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Sheets("Sheet1").Select
End Sub

Answer 1

 sub s()
 for i=1 to 6
 sheet1.[a1]=i'假设更改的数据在a1
 call 宏2
 next
 end sub

追问

谢谢大神，我大概明白你的意思，但是如何添加到我的宏语句中，怎样的格式添加，麻烦了