اختيار الطابعة قبل الطباعة

[حسين مامون]

السالم عليكم ورحمة الله

جمعة مباركة

اساتذتي بالمنتدى:   في المرفق  يوزرفورم فيه زرين OptionButton2 و OptionButton1   كل واحد مكوب عليه اسم الطابعة  واريد عند اختيار واحد منهما ثم النقر الزر طباعة ان تعمل الطباعة المختارة

تحياتي

اختيار الطابعة.rar

[الأستاذ / محمد الدسوقى]

أخى العزيز

جرب الكود التالى لتحديد اسم الطابعة مع مراعاة كتابة اسم الطابعة بالطريقة الصحيحة

الكود هو إضافة على الكود المستخدم فى الملف المرفق خاصتكم

Option Explicit

Private Sub CommandButton1_Click()
Dim ws As Worksheet, lr%
Set ws = Sheets("sheet1")
lr = ws.Cells(Rows.Count, 1).End(xlUp).Row

If OptionButton1.Value = True Then
Application.ActivePrinter = "HP laserJet profissional M1132 MEP"    'اسم الطابعة الأولى المراد استخدامها مع زر الاختيار الأول
ws.Range("a1:e" & lr).PrintOut

Else
If OptionButton2.Value = True Then
Application.ActivePrinter = "HP laserJet p1005"    'اسم الطابعة الثانية المراد استخدامها مع زر الاختيار الثانى
ws.Range("a1:e" & lr).PrintOut

Else

End If: End If


End Sub

 

[حسين مامون]

جزاك الله خيرا 

ساجرب وارد  

[حسين مامون]

لم يفلح الكود يعطي خطأ كما بالمرفق

تحياتي

اسم احدى الطابعتين على الجهاز الذي اجرب عليه الاكواد

 

[عبدالله بشير عبدالله]

 

السلام عليكم

الحل المرفق يظهر جميع الطابعات فيل الطباعة والكود  للخبير ياسر ابو البراء جعله الله في ميزان حسناته اضغظ على زر طباعة فقط

في حفظ الله 

اختيار الطابعة1.rar

[حسين مامون]

اشكرك اخي عبد الله الصاري على مرورك

فكرة الاستاذ خليل ابو البراء ممتازة  وجزاه الله بكل خير  

امس قبل ان اضع مشاركتي عملت بحث في المدونة وجدت نفس الشيء جزاك الله خيرا اخي

ظننت ان الطريقة التي اريدها ممكنة ولكن لابأس بهذه الفكرة

تحياتي لك ولاستذنا ابو البراء 

 

[الأستاذ / محمد الدسوقى]

الأخوة الكرام

السلام عليكم ورحمة الله وبركاته

بالقاء النظر على الخطأ بالكود الموضح بالصورة أعلاه فى المشاركة السابقة

نرجو منكم  تصحيح الخطأ الوارد

تقبلوا تحياتى