Jump to content

[Solucionado]cambiar de impresora


Recommended Posts

hola a todos!

tengo que cambiar de impresora predeterminada entre dos que utilizo normalmente

y me gustaria contar con una macro que me permita hacerlo mas facilmente desde excel

la mecanica actual es ir a inicio impresoras y predeterminar una u otra impresora

un pequeño intento que me da la impresora actual es:

Sub ImpreACTIVA()

ImpresoraActiva = Left(ActivePrinter, Len(ActivePrinter) - 9)

MsgBox "La impresora activa es: " & ImpresoraActiva

End Sub

HP LaserJet 2300 Series PCL 6 (impresora1)

HP LaserJet 2035 Series PCL5e (impresora2)

gracias de antemano

Link to post
Share on other sites

Re: cambiar de impresora

Hola,

revisando rápidamente, parece que la propiedad activeprinter es de lectura y escritura, por lo que puedes asignar allí la impresora que quieras usar.

En la ventana inmediato escribre:

?activeprinter[/CODE]

en mi caso el resultado es:

EPSON Stylus CX7300 Series en Ne02:

en tu caso debe ser algo parececido, pero con tu impresora predeterminada.

Ahora cambia manualmente la impresora predeterminada y vuelve a hacer lo mismo. Con esto tendrás en la ventana inmediato el nombre completo para tus dos impresoras predeterminados.

Ahora es sólo cuestión de cambiar en un macro la impresora activa, por ejemplo:

[CODE]Sub Cambiar_Impresora()


Const Impresora1 As String = "[COLOR="blue"]HP LaserJet 2300 Series PCL 6 en Ne02:[/COLOR]"
Const Impresora2 As String = "[COLOR="blue"]HP LaserJet 2035 Series PCL5e en Ne00:[/COLOR]"


ActivePrinter = VBA.IIf(ActivePrinter = Impresora1, Impresora2, Impresora1)


MsgBox "Ha cambiado la impresora activa a: " & vbCrLf & vbCrLf & ActivePrinter, vbInformation, "Impresora activa"


End Sub[/CODE]

Ten en cuenta que esto cambia la impresora activa para Excel, pero no la impresora predeterminada de tu sistema.

Link to post
Share on other sites

Re: cambiar de impresora

gracias si me funciono como me dijiste perfectamente

quedando asi ya que una impresora esta en otro equipo en red

Sub Cambiar_Impresora()

Const Impresora1 As String = "HP LaserJet 2300 Series PCL 6 en Ne02:"

Const Impresora2 As String = "\\Conta8\HP LaserJet P2035 Series PCL5e en Ne05:"

ActivePrinter = VBA.IIf(ActivePrinter = Impresora1, Impresora2, Impresora1)

MsgBox "Ha cambiado la impresora activa a: " & vbCrLf & vbCrLf & ActivePrinter, vbInformation, "Impresora activa"

End Sub

solo me gustaria agregar algo si es posible , que en una celda(a1) de una hoja de mi libro llamada (sobres) me indicara el mensaje de texto "la Impresora actal es "impresora 1 o impresora 2"

Link to post
Share on other sites

Re: cambiar de impresora

Me alegra que haya funcionado.

... solo me gustaria agregar algo si es posible , que en una celda(a1) de una hoja de mi libro llamada (sobres) me indicara el mensaje de texto "la Impresora actal es "impresora 1 o impresora 2"...

Prueba con algo así:

Sub Cambiar_Impresora()


Const Impresora1 = "HP LaserJet 2300 Series PCL 6 en Ne02:"
Const Impresora2 = "\\Conta8\HP LaserJet P2035 Series PCL5e en Ne05:"


ActivePrinter = VBA.IIf(ActivePrinter = Impresora1, Impresora2, Impresora1)


' MsgBox "Ha cambiado la impresora activa a: " & vbCrLf & vbCrLf & ActivePrinter, vbInformation, "Impresora activa"

[COLOR="blue"]Sheets("sobres").Range("a1").Value = "La impresora activa es: " & ActivePrinter[/COLOR]


End Sub[/CODE]

Link to post
Share on other sites
Guest
This topic is now closed to further replies.
×
×
  • Create New...

Important Information

Privacy Policy