Cómo cambiar la impresora predeterminada usando VBA en Microsoft Excel 2016

Tabla de contenido

¡Hola!

¿Está su impresora predeterminada ubicada en el rincón más alejado de la oficina?

¿Quiere imprimir su hoja desde la impresora a su lado?

Puede cambiarlo en la sección de diálogo de impresión, pero ¿es demasiado vago para hacerlo también?

Bueno, la mayoría de la gente inventiva es perezosa, como tú y yo.

No te preocupes. Te tengo. Hagámoslo usando VBA de una vez por todas …
A continuación se muestra el código que cambia su impresora predeterminada a su elección de impresora y restablece la impresora original a la impresora predeterminada.

Sub Change_Default_Printer ()
Establecer mynetwork = CreateObject ("WScript.network")
mynetwork.setdefaultprinter "Su nombre de impresora" 'escribir el nombre de su impresora aquí
ActiveSheet.PrintOut
mynetwork.setdefaultprinter "Original_Default_Printer" restablece tu impresora original a la predeterminada "
End Sub

Vamos a romper cada línea.

  1. Set mynetwork = CreateObject ("WScript.network"): Aquí hemos creado un objeto “mi red" de WScript.Network usando VBA Crear objeto() función. Internamente devuelve "IWshNetwork2 ” tipo de objeto.
    WshNetwork2 da acceso a la red de computadoras. Podemos jugar con todos los dispositivos conectados al ordenador. Por ahora usaremos impresoras.
  2. mynetwork.setdefaultprinter "Su nombre de impresora": En esta línea, solíamos excel vba seleccione impresora. impresora predeterminada propiedad de WshNetwork2El objeto se utiliza para seleccionar la impresora predeterminada a su elección.. Escriba el nombre de su impresora entre comillas dobles (“”).
  3. ActiveSheet.PrintOut: Este comando imprime su documento desde la impresora cambiada. He impreso la hoja activa aquí. Puede dar cualquier nombre de hoja para imprimirla inmediatamente.
  4. mynetwork.setdefaultprinter "Original_Default_Printer": Esta línea vuelve a configurar su impresora original a los valores predeterminados. Esto es opcional. Si no desea cambiar, omita esta línea. O puede configurarlo en otra impresora antes de que finalice su código.

¿Entonces, cómo estuvo? ¿Funcionó para ti? ¿Fue dificil? Házmelo saber en los comentarios. Estén atentos para lecciones más innovadoras y fáciles. Adiós.

Articulos populares:

50 atajos de Excel para aumentar su productividad

Cómo utilizar la función BUSCARV en Excel

Cómo usar la función CONTAR.SI en Excel 2016

Cómo utilizar la función SUMIF en Excel

Va a ayudar al desarrollo del sitio, compartir la página con sus amigos

wave wave wave wave wave