Printer select code help please.

I have some code that directs print to a specific printer, how do I set it so it opens the printer dialoge window so we can select printer and properties?

Thanks

Sub PrintOut()
'
' PrintOut Macro
'

'
    Application.ActivePrinter = "\\ironyan-file\HPYAN3_EPCMCL2 on Ne05:"
    Sheets("Print Out").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub