¡Hola!

¿Su impresora predeterminada está 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 se preocupe. 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 devuelve la impresora original a la impresora predeterminada.

Sub Change_Default_Printer()

Set mynetwork = CreateObject(«WScript.network»)

mynetwork.setdefaultprinter «Your Printer Name» ‘write your

printers name here

ActiveSheet.PrintOut

mynetwork.setdefaultprinter_ “original_Default_Printer”*

_‘*set back your original printer to default”

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 la función CreateObject () de VBA. Internamente devuelve el tipo de objeto “IWshNetwork2” .

WshNetwork2 da acceso a la red de computadoras. Podemos jugar con todos los dispositivos conectados a la computadora. Por ahora usaremos impresoras.

  1. mynetwork.setdefaultprinter «_ Su nombre de impresora «: _ En esta línea, usamos excel vba seleccionar impresora. La propiedad de impresora predeterminada del objeto _WshNetwork2 * se utiliza para seleccionar la impresora predeterminada a su elección .__ Escriba el nombre de su impresora entre comillas dobles (“”).

  2. _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 de inmediato.

  3. mynetwork.setdefaultprinter _ “original_Default_Printer” __: _ Esta línea restablece la impresora original a la predeterminada. Esto es opcional.

Si no desea cambiar, omita esta línea. O puede configurarlo en otra impresora antes de que finalice su código.

wsae

¿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.

Artículos populares:

link: / keyboard-formula-shortcuts-50-excel-shortcuts-to-incrementa-your-productividad [50 Excel Shortcut to Increase Your Productivity]

link: / formulas-and-functions-Introduction-of-vlookup-function [Cómo usar la función VLOOKUP en Excel]

link: / tips-countif-in-microsoft-excel [Cómo usar la función COUNTIF en Excel 2016]

link: / excel-formula-and-function-excel-sumif-function [Cómo usar la función SUMIF en Excel]