Question

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

Answer 1

做宏，复制以下代码

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点击起始和最终的表，然后运行这个宏，那么就会把所有被选中表的第一页打印出来。

Answer 2

只要选择“文件”→“打印”（不能直接按“常用”工具栏上的“打印”按钮，否则是将整个工作表全部打印出来），打开对话框，选中“打印范围”下面的“页”选项，并在后面的方框中输入需要打印的页面页码从1到1，在“打印内容”下选择“整个工作簿”（默认是电脑是选择“活动工作表”的），再按下“确定”按钮即可。

追问

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

追答

那就先按住CTRL键，然后在分别取选择你指定的sheet表中要打印的内容，打印时选择“指定区域”，你可以试试

Answer 3

1.设置好每个SHEET页的打印区域,
2.设置好每个SHEET也只打印第一页后,选中第一个SHEET1按SHIFT选择到SHEET10,再打印就可以了