Codigo impresión

[enrux]

hola .. compañeros

Quisiera que me Ayudaran por favor con este codigo...

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[/CODE]

cuando voy a imprimir le doy configurar en la configuración de la impresora.. pongo papel manual o cualquier otra configuracion..

siempre me imprime con la bandeja principa..

Gracias chicos

impresion cod.rar

[AlexanderS]

O yo no entendí o no explicaste cual es tu problema por que el código no tiene ningún error...

Salu2

[enrux]

1. Que pena molestar.. pero no se que Hice mal en esta públicacion ya leí las normas pero no veo el error.. me podrian explicar..

2. Pues El codigo.. Funciona perfecto para imprimir.. pero Cuando Le Doy Configurar.. Y le Doy impresión Manual...(Es decir que le pongo el papel por la bandeja manual) Siempre me imprime Con la Bandeja Principal....Es decir no me guerda..La Configuracion..

Gracias Que Pena Con ustedes

[enrux]

mmm.. Gracias Luis..