Foro Excel

Estimados Señores:
Les comento mi caso, tengo un archivo que contiene 3 hojas (Hoja1,Hoja2,Hoja3)
los cuales se impremen en distintas impresoras.
Pero hay veces que las hojas se imprimen en una impresora equivocada.

asi es el codigo q utilizo para las impresones

Hoja1
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, ActivePrinter := "Impresora1 en Ne00:"
Hoja2
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, ActivePrinter := "Impresora2 en Ne01:"
Hoja3
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, ActivePrinter := "Impresora3 en Ne02:"

Esperando puedan ayudarme me despedo.
Atte...
Miguel

hola, Miguel !

el codigo que expones no denota alguna (posible) causa del error que comentas (?)
en via de mientras, toma en cuenta lo siguiente:

la coleccion "ActiveWindow.SelectedSheets" no asegura/garantiza que "la hoja correcta" va incluida
cambia la instruccion por algo +/- como...

worksheets("hoja esperada").printout copies:=2, collate:=true, activeprinter:="impresoraX en puertoY:"

procurando que la "impresoraX" y el "puertoY:" sean tambien los "correctos" (segun la "hoja esperada")

considera tambien que los puertos PnP (como los usb) podrian tener conectada una impresora "incorrecta"

saludos,
hector.

yo lo soluciono así, porque se en que impresora quiero imprimir, pero no el puerto que la tiene cada ordenador, que muchas veces es diferente.

if cells(10,7).value="color" then
call imp_color
esle
call imp_blancoynegro
end if

Private Sub imp_blancoynegro()

On Error Resume Next
Application.ActivePrinter = _
"\\BIXXXX\BIXXXV1 en Ne00:"

Application.ActivePrinter = _
"\\BIXXXX\BIXXXV1 en Ne01:"

Application.ActivePrinter = _
"\\BIXXXX\BIXXXV1 en Ne02:"

Application.ActivePrinter = _
"\\BIXXXX\BIXXXV1 en Ne03:"
End Sub


Private Sub imp_color()

On Error Resume Next
Application.ActivePrinter = _
"\\BIXXXX\BIXXXV2 en Ne00:"

Application.ActivePrinter = _
"\\BIXXXX\BIXXXV2 en Ne01:"

Application.ActivePrinter = _
"\\BIXXXX\BIXXXV2 en Ne02:"

Application.ActivePrinter = _
"\\BIXXXX\BIXXXV2 en Ne03:"
End Sub

Estimados Señores, disculpen la ausencia y agradezco su ayuda:
Les comento algo adicional;

Tengo 4 Equipos en red , 3 impresoras

PC1 .......es la principal y alli estan conectadas las impresoras
PC2,PC3,PC4 (son secundarias) tienen archivos a imprimir
El problema que tengo es que los puertos de las PCs Secundarias, se cambian .por ejemplo:

Ayer: Impresora1 en Ne02:,Impresora2 en Ne00:,Impresora3 en Ne01:
Hoy: Impresora1 en Ne00:,Impresora2 en Ne01:,Impresora3 en Ne03:

Al parecer los puertos se cambian solo.....de que depende no lo se
Aunque cuando tengo un orden al encender las impresoras no tengo problemas, pero buscada una alternativa de mas confianza..

Atte...
Miguel Paucar