مساعدة فى شيت كنترول ثانوى عام للأستاذ أحمد السيد

[محمد على الطيب]

السلام عليكم ورحمة الله وبركاته أخوانى الكرام

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

وشكرا جزيلا لكم

 

 

البرنامج

http://www.gulfup.com/?sWWkwX

 

 

كلمة المرور : الحمد لله

[محمد على الطيب]

up

[محمد على الطيب]

up

[الشهابي]

أخي العزيز / محمد علي الطيب

طيبك الله بعطر ذكرى ميلاد نبيه المصطفى صلى الله عليه وعلى آله وصحبه وسلم  

تم إضافة زر طباعة  قم بضغطه وسيظهر لك فورم حدد ما شئت من الشهادة لطباعتها 

إن شاء الله يلبي مطلوبك

والعفو

تقبل تحياتي وتقديري

http://www.gulfup.com/?5gjnQz

[محمد على الطيب]

السلام عليكم ورحمة الله وبركاته أخى الكريم كل عام وأنتم بخير

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

[محمد على الطيب]

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

 

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

 

[الشهابي]

أخي العزيز / محمد علي الطيب

غير في كود فورم الطباعة  السطر المحدد في الأسفل

Private Sub CommandButton1_Click()
'    Dim M1, N1, i, x As Integer
    FromS = TextBox1.Value
    Tos = TextBox2.Value
        If FromS > Tos Then
       MsgBox "تأكد من الإدخالات"
       Else
       Page_p = Tos - FromS + 1
       end_p = 0
       For end_p = 1 To Page_p
       Range("E1") = FromS
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
       FromS = FromS + 1
       Next
       TextBox1 = ""
       TextBox2 = ""
       MsgBox "تمت الطباعة المحددة"
    End If
End Sub

هذا السطر المطلوب استبداله أو تعديل الرقم بعد إشارة (+) من (1) إلى (2)

       FromS = FromS + 1

ليصبح بهذا الشكل

       FromS = FromS + 2

أو قم بنسخ الكود هذا واستبدله بالكود الأول

Private Sub CommandButton1_Click()
'    Dim M1, N1, i, x As Integer
    FromS = TextBox1.Value
    Tos = TextBox2.Value
        If FromS > Tos Then
       MsgBox "تأكد من الإدخالات"
       Else
       Page_p = Tos - FromS + 1
       end_p = 0
       For end_p = 1 To Page_p
       Range("E1") = FromS
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
       FromS = FromS + 2
       Next
       TextBox1 = ""
       TextBox2 = ""
       MsgBox "تمت الطباعة المحددة"
    End If
End Sub

كما قم بنقل زر الطباعة بواسطة القص أو حت النسخ إلى الورقة المطلوبة 

وإذا  لم تستطع ذلك سوف أقوم إن شاء الله في الغد بالتعديل وإرسال الملف مرة أخرى 

والعفو

[محمد على الطيب]

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

شكرا جزيلا لتعبك وردك على طلبى وسوف أحاول التعديل بإذن الله وأننى اطمع فى كرمك وأنتظر أيضا التعديل منكم أخى الكريم

 

 

شكرا جزيلا وجعله فى ميزان حسناتكم بإذن الله

[محمد على الطيب]

شكرا جزيلا أخى الكريم الشهابى

 

تم التعديل وهذا هو المطلوب بارك الله فيكم وجزاكم الله خيرا

 

 

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