Elegir impresora antes de imprimir

Hola amig@s:
Tengo el siguiente código:
Sub IMPRIMIR()
' Estilo2 = vbYesNo + vbQuestion + vbDefaultButton2 Ayuda2 = "DEMO.HLP" Ctxt2 = 1000
' Respuesta2 = MsgBox("¿ imprimir ?", Estilo2, "Impresión", Ayuda2, Ctxt2) If Respuesta2 = vbYes Then ActiveWindow.SelectedSheets.PrintOut Copies:=1 Else ' none End If
End Sub
Pero como haria para elegir otra impresora asi como se hace con : ctrl+p , pero enlasarla a mi macro.
Saludos
Jesús