批量打印本工作簿内所有工作表（Excel代码集团）

实际这个问题不需要用VBA，因为可以直接选取所有工作表后再开始打印，但如此一来页码的设置会出现问题。

例如一个工作簿内共12个工作表，每个工作表单独打印页码为1-2页不等，全部选取后一起打印，页码会完全连续，如第三个工作表应该是“第1页，共2页”，却显示成了“第4页，共20页”这样的。

Sub PrtSample()
Dim MyShtN As Long
For MyShtN = 1 To Sheets.Count
    Sheets(MyShtN).PrintOut
Next
End Sub