اذهب الي المحتوي
أوفيسنا

(تمت الإجابة) كود تكرار الصفوف لأسفل عند الطباعة


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

الفكرة بإختصار أننا قد نحتاج أن نكتب فى رأس وتزييل الصفحة كمية من الداتا أكثر مما يستوعب الرأس والتزييل

فى حالة الرأس أتحايل على هذا بأن أجعل أول عدة صفوف بالشيت صفوف مكررة لأعلى فى حالة الطباعة فيتعامل معها البرنتر كأنها راس الصفحة

ولكن فى حالة التزييل فالأمر يحتاج لكود يبدع فيه أحد الخبراء وهم كثييرين فى هذا الصرح العملاق

الكود بإختصار لابد أن يتوافر فيه الشروط التالية:

1. إمكانية تعديل عدد الصفوف المكررة لأسفل

2. إمكانية تعديل عدد الصفوف المحصورة بين آخر الصفوف المكررة لأعلى و أول الصفوف المكررة لأسفل

أتعشم أن يكون طلبى واضحاً بدون ملف

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

الله ينور عليك يا جمال باشا

كود جميل جدا

وهو المطلوب بالفعل

المهم أن يستوعب كل ما نريد كتابته فى الرأس و التزييل

الف شكر

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

جمال باشا

الكود مية مية

كيف يمكن وضع أرقام الصفحات فى راس الصفحة ؟؟

علماً بأننى عدلت مكان الخلايا كما يلى


Private Sub Workbook_BeforePrint(Cancel As Boolean)

With ActiveSheet.PageSetup

    .RightHeader = Sheets(2).Range("A1").Value

    .CenterHeader = Sheets(2).Range("B1").Value

    .LeftHeader = Sheets(2).Range("C1").Value

    .RightFooter = Sheets(2).Range("A2").Value

    .CenterFooter = Sheets(2).Range("B2").Value

    .LeftFooter = Sheets(2).Range("C2").Value

End With

End Sub

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

شكرا اخى العزيز

هذا ما اردت وشكرا عمالقة المنتدى لبذلكم الجهد فى تخفيف العبء على اخوانكم

الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف الف

شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر شكر

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

اخوانى الكرام للأسف لم استطع التطبيق

فالرجاء من حضراتكم انشاء ورقة عمل ووضع تزييل الصفحة به العبارة التالية بدون صورة اى وضعها كتابة وشكرا لكم

العبارة هى

اقرار : تقر ادارة المدرسة بان السادة المذكورين بعاليه يستحقون حافز الآداء بالمشاركة الفعلية فى العمل وبذل جهد متميز لرفع مستوى الآداء ولا تقل مدة العمل الفعلية خلال الشهر عن 18 يوما ولا يقل تقدير كفايتهم خلال العام عن مرتبة كفء ولم يوقف احدهم عن العمل او احيل الى المحكمة التأديبية أو الجنائية ولم يوقع على احدهم جزاء تأديبى بخصم أكثر من خمسة ايام ،،،،،،،،،،، مدير المدرسة

المختص رئيس القسم رئيس شئون عاملين مدير مالى وادارى

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

اخى الحبيب جمال

بارك الله فيك

لى طلب بسيط طب لو حبيت اربط التزييل بصورة مكن ؟

وكيف الطريقة

وياريت يكون الصورة دى اى شخض مش محتف يقدر يغيرها

زى شعار لمدرسة مثلا

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

  • 2 years later...
  • 3 years later...
  • 3 months later...

الأستاذ ابو الاء
تحبة طببة
بمكن وضع صورة فى التذببل منداخل الإكسل نفسه
إختار إدراج صورة من داخل التذببل و حددها و ستصبح هى التذببل
أنا بعمل كدة لما أكون عاوز أحط فى التذببل جدول
بعمل  الجدول المقصود بطول وعرض مناسب لتذببل الصفحة و باخده برنت سكربن و بدرج الصورة فى تذببل الصفحة وبتبقى كوبسة

 

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

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

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



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

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

Important Information