[ناجي إبراهيم]

السلام عليكم...

بالإضافة إلى ما تقدم به أخونا VB_Coder مشكوراً فإنه يمكن استعمال الكائنين Printer و Printers لضبط الطابعة الافتراضية للتطبيق دون تغيير الطابعة الافتراضية للنظام (لاحظ أننا نستعمل الخاصية DeviceName التي تعطي الاسم الصحيح الكامل للطابعة):

كود :

Dim Prn As Printer

For Each Prn In Printers
    If UCase$(Prn.DeviceName) = UCase$("hp LaserJet 1010") Then
        Set Printer = Prn    ' اضبط الطابعة الافتراضية
        Exit For                  ' اخرج من الحلقة
    End If
Next

و تبديل الطابعات حسب الحاجة:

كود :

Dim Prn As Printer
Dim Printer1 As Printer    ' الطابعة الأولى
Dim Printer2 As Printer    ' الطابعة الثانية
    
For Each Prn In Printers
    If UCase$(Prn.DeviceName) = UCase$("hp LaserJet 1010") Then
        Set Printer1 = Prn
    ElseIf UCase$(Prn.DeviceName) = UCase$("hp psc 1310 series") Then
        Set Printer2 = Prn
    End If
Next

Set Printer = Printer1    ' اختر الطابعة الأولى
DataReport1.PrintReport False    ' اطبع التقرير الأول

Set Printer = Printer2    ' اختر الطابعة الثانية
DataReport2.PrintReport False    ' اطبع التقرير الثاني

* ملاحظة: بدل تكرار كود البحث عن الطابعتين كلما أردت الطباعة، يمكنك جعل المتغيرين Printer1 و Printer2 عامين (Public) في Module و ضبطهما عند بداية تشغيل البرنامج ثم استعمالهما حسب الحاجة (كما في الأسطر الأربعة الأخيرة في الكود السابق).

أخيراً، و للحصول على قائمة بأسماء الطابعات (في ListBox مثلاً):

كود :

Dim Prn As Printer
    
For Each Prn In Printers
    List1.AddItem Prn.DeviceName
Next

نرجو الاستفادة و السلام.