¡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.
- 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. - 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 (“”).
- 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.
- 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