طباعة ارقام الجلوس او الشهادات

[ناصر سعيد]

هذا ملف به ارقام جلوس الطلاب ... كل صفحه بها 9 ارقام جلوس

اريد تفعيل هذا الكود الخاص بالمحترم بن عليه  .. جزاه الله عنا كل خير

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

Sub Print_FROM_TO()
  For I = [P2] To [Q2] Step 4
     If I >= [U1] And I <= [U2] Then
       [I9] = I
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
     End If
  Next
     [I9] = [U1]
End Sub

 

طباعــــــة بن عليه.rar

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

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

تفضل أخي الملف المرفق وبه المطلوب...

تقبل الله منا ومنكم ومن كل المسلمين الصلاة والصيام والقيام وصالح الأعمال

أخوك بن علية

طباعــــــة بن عليه.rar

[ناصر سعيد]

اخي المحترم بن عليه

جزاك الله كل خير  ... وبعد

بعد الضغط على زر الطباعه لايحدث الطباعه ولا ادري ما السبب

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

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

لم يحدث طباعة لأحد السببين التاليين :

- إما أن اختيار قيم من ... إلى ... فيه خطأ : اختيار قيمتي من... و إلى ... ليستا من قيم المجال [V5 ، V6]

- وإما أن يكون مستوى حماية الماكرو مرتفعا (مما يعني أن الماكرو غير مفعلة).

ليس لي اقتراح آخر...

بن علية حاجي

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

[ناصر سعيد]

اخي المحترم بن عليه

جزاك الله كل خير  ... وبعد

مجرد سؤال : هل جربت الكود على طابعه او طابعه وهميه ؟

اختيار قيم من ... إلى ... فيه خطأ : اختيار قيمتي من... و إلى ... من قيم المجال [V5 ، V6]

مستوى حماية الماكرو منخفضه (مما يعني أن الماكرو  مفعل ).

 

===============

اختيار قيم من ... إلى ... ليس فيه خطأ : اختيار قيمتي من... و إلى ... من قيم المجال [V5 ، V6]

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

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

معذرة لقد قمت بتغيير مكان خلايا الخاصية من... إلى... في الشيت (من السطر الثالث إلى السطر الثاني) وغفلت على التعديل في الكود... المهم يمكنك القيام بذلك بتغيير الأمر التالي في الكود:

  For I = [T3] To [U3] Step 9

بالأمر :

  For I = [T2] To [U2] Step 9

معذرة مرة أخرى...

يمكنك أيضا تحميل الملف المرفق الذي تم فيه التصحيح...

بن علية حاجي

طباعــــــة بن عليه.rar

[ناصر سعيد]

Sub Print_FROM_TO()
'هذا الكود خاص بالمحترم بن عليه حاجي
'وهو من اهلنا بالجزائر حفظهم الله ورعاهم
'الهدف من الكود طباعه صفحات
'كل صفحه تحتوي على 9

'تحديد الطباعه من ... الى والخطوة 9
  For I = [T2] To [U2] Step 9
  
  
     If I >= [V5] And I <= [V6] Then
       [B6] = I
       ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
     End If
  Next
     [B6] = [V5]
End Sub

حفظك الله ورعاك الاستاذ المحترم بن عليه حاجي

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