Macro to prompt for which printer to use

[Mcfg007]

Currently have a macro to instruct for the print the workbook sheets as follows, but I am lokk9imng for a code that would prompt to select which printer to print, can anyone help?

Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+Shift+P
'
    Sheets("Charge Sheet").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Sheets("CI Report").Activate
    ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

 

[RoryA]

You could use:

application.Dialogs(xlDialogPrinterSetup).Show

before the PrintOut lines.

 

[wideboydixon]

You can show the printer setup dialog from code:

Application.Dialogs(xlDialogPrinterSetup).Show

WBD

 

[saboxerman]

This code provided gets me halfway to where I'd like to be for selecting a printer prior to printing in my Excel sheet.

Is there additional line codes to where the printer I selected stays the default for the remainder of the time I am in the Excel sheet?