Избор на принтер в макрос Excel

• Проблем
• Решение

Проблем

Имам Excel файл (2007), в който отпечатвам листа чрез 2 мрежови принтера.

• Написах макрос, за да избера принтери, които работят в моя компютър, но не непременно за друг.
• Искам всички потребители да имат достъп до принтера по свой избор чрез макрос, възможно ли е?

Решение

Опитайте тази:

 Под-тест () Dim DefaultPrinter As String, Impremante1 Като String, Imprimante2 As String 'Stocke le nom de l'imprimante, за да се прехвърли в модул DefaultPrinter = Application.ActivePrinter' Принтер # 1 избор Application.Dialogs (xlDialogPrinterSetup) Показване на Imprimante1 = Application.ActivePrinter 'Принтер # 2 избор Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante2 = Application.ActivePrinter' Показване на имена, съхранени в променливи MsgBox Printer1 MsgBox Printer2 'Нулиране на принтера по подразбиране: Application.ActivePrinter = По подразбиране \ t 

Благодарение на pikaju за този съвет.