Выбор принтера в макросе Excel

• вопрос
• Решение

вопрос

У меня есть файл 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 за этот совет.