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..
hola .. compañeros
Quisiera que me Ayudaran por favor con este codigo...
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