طلب صغير في كود طباعة

[محمد_عبد_الوهاب]

الاساتذة الافاضل

السلام عليكم

اريد التعديل في الكود التالي وهو خاص بطباعة نطاق معين بناء علي شرط في خليه

ليصبح عدد نسخ الطباعة 2 تلقائياً للصفحة

الكود

Sub طباعة_1()

If ActiveSheet.[i1] = True Then

    ActiveSheet.PageSetup.PrintArea = "A1:h44"

    ActiveSheet.PrintOut

End If

UserForm2.Hide

Sheets("Main").Select

End Sub

شكراااا

[محمد يحياوي]

الاخ الفاضل اضف هذا الكود

ActiveSheet.PrintOut copies:=2

[محمد_عبد_الوهاب]

الف الف شكر

علي الرد الجميل وعلي سرعة الرد اكثر في هذا المنتدي الرائع

بارك الله فيك .. وجزاك الله خيرا