VBA批量打印工作表，并设置每个工作表的份数

问题如下：同事一个工作簿里面有很多个工作表，要将其全部打印，并且每个工作表要打印5份，也就是平时说的一式五份。下面的代码可以实现打印一式五份，不需要在一份一份分好。

Sub 批量打印工作簿()
Dim sht As Worksheet
For Each sht In Sheets
    sht.PrintOut Copies:=5, Collate:=True
Next

End Sub