كود طباعه لورقه فى اكثر من شيت

[۩◊۩ أبو حنين ۩◊۩]

السادة الكرام... الاخوة الاعزاء

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

 

ارجو من يدلنى على كود طباعة

الغرض منه طباعه ورقه واحده حدودها   a1 :h37 هذه الورقة بحدودها موجده في عدد  5 شيت اسم كل شيت كاتى  A B C D E 

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

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

 

[أبو حنــــين]

السلام عليكم

استعمل هذا الكود

Sub AbouHanine()

RR = Array("A", "B", "C", "D", "F", "E")
    For i = 0 To UBound(RR)
        With Sheets(RR(i))
            .PageSetup.PrintArea = "A1:H37"
            .PrintOut
        End With
    Next


End Sub

[۩◊۩ أبو حنين ۩◊۩]

السلام عليكم اخى العزيز

شاكر لك مجهودك

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