Selección de impresora en macro de Excel
![](http://img.brin-designs.com/img/games/496/printer-selection-excel-macro.png)
- Problema
- Solución
Problema
Tengo un archivo de Excel (2007), en el que imprimo hojas a través de 2 impresoras de red.
- He escrito una macro para seleccionar las mismas impresoras, funciona en mi PC, pero no necesariamente para otra.
- Quiero que todos los usuarios tengan acceso a la impresora de su elección a través de una macro, ¿es posible?
Solución
Prueba esto:
Subprueba () Dim DefaultPrinter As String, Imprimante1 As String, Imprimante2 As String 'Stocke le nom of l'imprimante par défaut, pour la remettre en fin de module DefaultPrinter = Application.ActivePrinter' Printer # 1 choice Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante1 = Application.ActivePrinter 'Printer # 2 elección Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante2 = Application.ActivePrinter' Mostrar nombres almacenados en las variables MsgBox Printer1 MsgBox Printer2 'Reiniciar la impresora predeterminada: Application.ActivePrinter = DefaultPrinter End Sub
Gracias a pikaju por este consejo.