حاولت كتيير حتى لا أشغل أخوانى فى شئ صغير كهذا ولاكن لامفر "احتاج مساعدة"............👇
انا عامل كود للطباعه وكاتب فى pagesetup الكود الاتى بحيث يعمل كرأس متغير على اساس الصفحة النشطة
Activesheet.pagesetup.centerheader=range("b1").value
ولكن عشان الايمن ثابت والايسر ثابت فأنا منسقهم من قبل ، فيظهر هذا الاوسط بخط ١١ الصغير والأخرين يظهروا بخط كبير وغامق ...
فهل من حل بvba
وسامحونى انا بتعامل على الهاتف مش عااارف احط الكود فى خانته الصحيحه
السلام عليكم ورحمة الله وبركاته
وبها نبدأ
عدل الكود بهذا الشكل
Activesheet.pagesetup.centerheader= "&""andalus,Bold""&16" & range("b1").value
حيث رقم 16 هو حجم الخط
و andalus نوع الخط
و bold خط عربض
عرض الإجابة