تحديد صفوف الطباعة فى البيج يريكيريفيو(فاصل الصفحات)

[abassreda]

أخوانى الأعزاء السلام عليكم جميعا اريد بعد تثبيت صفوف معينة ليت طبعها فى كل الصفحات المطلوبة عمل تحديد لعدد الصفوف لمطلوب أختيارها وطبعها بمعنى انا عندى 1520 طالب وبعمل لهم كشوف رصد خارجية فحدد صوف العنوان المطلوب طبعتها فى كل الصفح وعاوز بعد كده أخلى كل صفحة تحتوى على 12 أسم فهل هناك طريقة غير ان أحدد الصفحات دى كلها يدوى وخلى الفاصل بعد كل 12 اسم أفيدونى وجزاكم الله خيرا مع العلم أنا شغال على أكسل 2003

تم تعديل مايو 4, 2012 بواسطه abassreda

[حيدر عبده]

بمعرفتي البسيطة اعمل من عرض تعيين فواصل الصفحات ثم عند الطباعة يتم تحديد الصفحات المراد طباعتها فقط

تم تعديل مايو 5, 2012 بواسطه دغيدى
دغيدى

[abassreda]

أخى العزيز انا أريد أن اعرف ماأعمله لكى أجعل فى كل صفحة 12 اسم فقط بطريقة غير تحديد الفواصل يدوياً شكراً لردك الغالى

تم تعديل مايو 5, 2012 بواسطه دغيدى
دغيدى

[دغيدى]

أخى الكريم

ضع ملفا لكى يتم العمل عليه

[بن علية حاجي]

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

أخي الكريم، يمكن استعمال الكود التالي:

 

Sub PageBreak()

Dim N As Long

Dim J As Integer

With Sheets("Feuil1")

    .Activate

	    N = .Range("A65536").End(xlUp).Row

    .ResetAllPageBreaks

    .PageSetup.PrintArea = "A1:K" & N

	    For J = 1 To N / 11

		    .HPageBreaks.Add Before:=Rows(12 * J + 3)

	    Next J

End With

End Sub

ملاحظة: العبارة 3 + في الكود تمثل "عدد الصفوف المكررة أعلى كل صفحة + 1"... إذا كان مثلا عدد الصفوف المكررة أعلى كل صفحة هو 5 فإن السطر العاشر من الكود يكون كما يلي:

 

    .HPageBreaks.Add Before:=Rows(12 * J + 6)

أخوك بن علية

[abassreda]

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

[abassreda]

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

تم تعديل مايو 5, 2012 بواسطه abassreda

[abassreda]

الصورة المرفقة بالمشاركة السابقة ظهرة عند فتح كود للشيت الأول ولصق الكود بة

تم تعديل مايو 5, 2012 بواسطه abassreda

[بن علية حاجي]

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

أخي الكريم، الخلل في الكود يكمن في السطر

With Sheets("Feuil1")

الأوراق في ملفك تم تسميتها Sheet1 وغيرها عليك تبديل كلمة Feuil1 في الكود باسم الشيت الذي تريد تطبيق الكود عليه...

أخوك بن علية

تم تعديل مايو 5, 2012 بواسطه بن علية حاجي

[abassreda]

مليون كلمة شكر لا تكفى مع اجمل التحيات لحضرتك بارك الله فيك تم تعديل مايو 5, 2012 بواسطه abassreda

[عبدالله باقشير]

وعليكم السلام

بارك الله فيك اخي بن عليه

وجزاك خيرا

تقبل تحياتي وشكري

[mhrrd]

لو سمحت ارفق ملف

[mhrrd]

لو سمحتم ارفقوا ملف

[أبو عبد الرحمن سعيد]

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