السلام عليكم ورحمة الله وبركاته
وبعد
هذا كود صممته _ مع قلة خبرتي في مجال الاكواد _
لينفذ أمر يشغل بال الكثير منا وهو تثبيت نطاق من الصفحة علوي وسفلي ليتكرر في جميع الصفحات .
وعلى الرغم انني اعلم ان هناك طرق عادية يمنحها الاكسيل لتنفيذ ذلك
نعم هذا صحيح !!
ولكن ميزة هذا الكود انه يمنح ما لا يمنحه الاكسيل بالطريقة التقليدية في الاكسيل ( راس وتذييل )
الميزة هي: اننا نستطيع تثبيت جدول اعلى واسقفل كل صفحة.
مشكلة هذا الكود :هو يعمل بشكل صحيح قي اول صفحة فقط ثم يقوم في باقي الصفحات بتثبيت النطاق الثاني الموجود بالكود فقط.
الكود :
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