Hello Rico
If Application.Dialogs(xlDialogPrinterSetup).Show < False Then
PrinterSelected = Application.ActivePrinter
With ThisWorkbook
..Worksheets("Name01").PrintOut Copies:=1, ActivePrinter:=PrinterSelected,
Collate:=True
..Worksheets("Name02").PrintOut Copies:=1, ActivePrinter:=PrinterSelected,
Collate:=True
End With
Else: MsgBox "Printer selection has been Cancelled", vbInformation,
"Cancelled"
End If

HTH
Cordially
Pascal

"ricowyder" a écrit dans le message de news:
...
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