مساعدة فى اساسى المرتب

[الاهلاوى 2007]

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

نظرا لانشغالنا بامتحانات الثانوية العامة وامتحانات الدبلومات نحتاج خطاب بالأساسي لتقديمة مع استمارة المراقبة

برجاء المساعدة فى هذا العمل وجعل صفحة الاساسى لعدد اربع مدرسون للطباعة

وعمل ذر للطباعة

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

الاساسى.xlsx

[الرائد77]

تفضل

الاساسى.xlsm

[سليم حاصبيا]

بعد اذن أخي الرائد

هذا الكود في نفس الصفحة ("البيانات")

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

Option Explicit
Sub Page_Break()
Dim B As Worksheet
Dim LA%, x%, Ho_many%
Dim Rg_a As Range
Set B = Sheets("البيانات")
  If Val(B.Range("H1")) <= 4 Then
   Ho_many = 4
  Else
   Ho_many = Int(B.Range("H1"))
  End If
 B.Range("h1") = Ho_many
LA = B.Range("A1").CurrentRegion.Rows.Count
ActiveSheet.ResetAllPageBreaks
For x = Ho_many + 6 To LA Step Ho_many
B.HPageBreaks.Add Before:=B.Range("A" & x)
Next
End Sub

الملف مرفق

 

 

 

 

 

Insert_H_Breaks.xlsm

[أبو سجده]

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

الاساتذه الأفاضل / الرائد  وسليم حاصبيا **** جزاكم الله خيرا وبارك فيكم 

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

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

اليكم المرفق التالى للعمل بموجبه ويُفضل أن يكون عملية استدعاء البيانات من خلال تسجيل الرقم القومى أو رقم الموظف 

مع الأكتفاء بثلاثة خطابات فقط حتى يكون هناك مساحة للتوقيعات والأختام *** جزاكم الله خيرا

خطاب أساسى.xlsx