التعديل على كود لتكرار هوامش علوية وسفلية

[محمد ابو البـراء]

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

وبعد

هذا كود صممته _ مع قلة خبرتي في مجال الاكواد _

لينفذ أمر يشغل بال الكثير منا وهو تثبيت نطاق من الصفحة علوي وسفلي  ليتكرر في جميع الصفحات .

وعلى الرغم انني اعلم ان هناك طرق عادية يمنحها الاكسيل لتنفيذ ذلك

نعم هذا صحيح !!

ولكن ميزة هذا الكود انه يمنح ما لا يمنحه الاكسيل بالطريقة التقليدية في الاكسيل ( راس وتذييل )

الميزة هي: اننا نستطيع تثبيت جدول اعلى واسقفل كل صفحة.

مشكلة هذا الكود :هو يعمل بشكل صحيح قي اول صفحة فقط  ثم يقوم في باقي الصفحات  بتثبيت النطاق الثاني الموجود بالكود فقط.

الكود :

Sub braa_head_foot()
    With ActiveSheet.PageSetup
        .PrintTitleRows = "$1:$1"
        .PrintTitleRows = "$52:$55"
       ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
    End With
End Sub

braa_head-foot.rar

[ابو بهاء المصري]

صباحك قشطة وعسل

واحشني والله

تسلم ايديك يا باشا