but why do you need a macro for this? If the
print areas are set up in each sheet, then select Entire Workbook.

A macro to save doing that much mousing:

Sub PrntWb()
ActiveWorkbook.PrintOut Copies:=1, Collate:=True
End Sub