Option to let user select printer?

Is there a command to bring up the select printer/options menu instead of just sending the data to the default printer? Here is the code I am using now:

Range("B12:BQ67").Select
ActiveSheet.PageSetup.PrintArea = "$B$12:$BQ$67"
ActiveWindow.SelectedSheets.PrintOut Copies:=1
ActiveWindow.SelectedSheets.PrintOut

Hello wpattison,

Here is how to display the Print Dialog in Excel.

Display Print DialogBox:
RetVal = Application.Dialogs(xlDialogPrint).Show

Sincerely,
Leith Ross