اختيار الطابعة في ماكرو اكسل

• القضية
• حل

القضية

لدي ملف Excel (2007) ، حيث أقوم بطباعة الأوراق عبر طابعتين للشبكة.

• لقد كتبت ماكرو لتحديد الطابعات ثم ، يعمل في جهاز الكمبيوتر الخاص بي ، ولكن ليس بالضرورة لآخر.
• أريد أن يتمكن جميع المستخدمين من الوصول إلى الطابعة التي يختارونها عبر ماكرو ، هل هذا ممكن؟

حل

جرب هذا:

 Sub test () Dim DefaultPrinter As String، Imprimante1 As String، Imprimante2 As String 'Stocke le nom de 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 choice Application.Dialogs (xlDialogPrinterSetup) .Show Imprimante2 = Application.ActivePrinter' إظهار الأسماء المخزنة في المتغيرات MsgBox Printer1 MsgBox Printer2 'إعادة تعيين الطابعة الافتراضية: Application.ActivePrinter = Default 

بفضل بيكاجو لهذه النصيحة.