作者：乔山办公网日期：
返回目录：excel表格制作
按住Ctrl 选择性选择工作表，或者按Shift批量选，然后再设置
在工作表窗口按ALT+F11调出copyVBA窗口，然后按“插入－模块”，把下面代码粘贴进百去：
Sub 打印()
'打印工作簿中全部工作表的第一度页
For i = 1 To Worksheets.Count
Sheets(i).Select
ActiveSheet.PrintOut From:=1, To:=1, Copies:=1, Collate:=True
Next
MsgBox "打印完毕"
End Sub
回到表格窗口，从问“工具－宏”中找到名为“打印”的宏，招待答即可打开当前工作簿中所有工作表的第一页。
可能误设置了打印区域，在分页预览视图里看看是否设置了打印区域
要是有10000个工作簿就是0001.xls，0002.xls，...怎么办复？？每个文件里面只要第制一页或者只要第二页，或百者要任意类似的几页？度请到移步 geekdao.taobao.com 咨询，分分钟搞定！