Thanks for all of your previous help.

I have a short question. Wrote this sub and it's working fine. Though,
it's using default printer. Any chance that I can offer a list of
installed printers to choose from? Thanks for your answer.

Regards,

Rico

Sub PrintSheets()

ThisWorkbook.Worksheets("Name01").PrintOut Copies:=1, Collate:=True
ThisWorkbook.Worksheets("Name02").PrintOut Copies:=1, Collate:=True

End Sub