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