اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

السلام عليكم

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

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

الكود


Sub طباعة_1()

If ActiveSheet.[i1] = True Then

    ActiveSheet.PageSetup.PrintArea = "A1:h44"

    ActiveSheet.PrintOut

End If

UserForm2.Hide

Sheets("Main").Select

End Sub


شكراااا

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information