在EXCEL表中有多个sheet,如sheet1到sheet10,如何能一次性执行打印每个sheet中的第一页，其它页不需打印。

如题所述

做宏，复制以下代码

Sub aa()
For Each sht In Sheets
sht.PrintOut From:=1, To:=1, Copies:=1
Next
End Sub

每次运行这个宏就打印当前工作簿的全部表的第一页。 量大的话，设定一个快捷键要稍微方便一些。追问

如果只想打印sheet5~sheet10,sheet1~sheet4不需打印，又如何执行！

追答

如果固定是5-10那么就改成
Sub aa()
For n=5 to 10
sheets(n).PrintOut From:=1, To:=1, Copies:=1
Next n
End Sub

追问

sheet1~sheet10只是个例子，都是有另外的不同命名，且后续这个excel还会不断的新增不同命名的Sheet，原已打印过的不再选择打印，只对新增的才打印。

追答

Sub aa()
Dim sht As Worksheet
For Each sht In ActiveWindow.SelectedSheets
sht.PrintOut From:=1, To:=1, Copies:=1
Next
End Sub

这样吧，只需要你选中需要打印的表名，即按住shift点击起始和最终的表，然后运行这个宏，那么就会把所有被选中表的第一页打印出来。

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/sp48mvqqq.html