Выбор принтера в макросе Excel
![](http://img.brin-designs.com/img/games/496/printer-selection-excel-macro.png)
- вопрос
- Решение
вопрос
У меня есть файл Excel (2007), в котором я печатаю листы через 2 сетевых принтера.
- Я написал макрос для выбора тогдашних принтеров, он работает на моем ПК, но не обязательно для другого.
- Я хочу, чтобы все пользователи имели доступ к выбранному ими принтеру с помощью макроса, возможно ли это?
Решение
Попробуй это:
Sub test () Dim DefaultPrinter As String, Imprimante1 As String, Imprimante2 As String 'Текущее значение для модуля, доступное для замены в модуле DefaultPrinter = Application.ActivePrinter' Выбор принтера № 1 Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante1 = Application.ActivePrinter 'Выбор принтера № 2 Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante2 = Application.ActivePrinter' Показать имена, хранящиеся в переменных MsgBox Printer1 MsgBox Printer2 'Сбросить принтер по умолчанию: Application.ActivePrinter = DefaultPrinter End Sub
Спасибо pikaju за этот совет.