Código impresión excel

hola .. Compañeros
Quisiera que me Ayudaran por favor con este código...
sub impr()
ImpresoraActual = Application.ActivePrinter
'
With Application.Dialogs(xlDialogPrinterSetup)
If .Show Then
Sheets("Ajuste").PrintOut Copies:=1, Collate:=True
End If
End With
Application.ActivePrinter = ImpresoraActual
End Sub
cuando voy a imprimir le doy configurar en la configuración de la impresora.. Pongo papel manual o cualquier otra configuración..
siempre me imprime con la bandeja principal..
Gracias chicos