مطلوب كود طباعه

[ناصر سعيد]

بسم الله الرحمن الرحيم

هذا كود خاص بعمل اللجان المدرسيه ومضبوط

لكننا نحتاج لكود لطباعه اللجان كلها مره واحده

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

لجان كنترول مدرسي.rar

 

[احمد بدره]

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

لجان كنترول مدرسي.rar

[ناصر سعيد]

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

==

الكود يكرر اللجنه مرتان

مثال طبع اول ورقه

لجنه 1 ولجنه 2 في صفحه

ثم يطبع لجنه 2 كمان مره ولجنه 3

وهكذا

نرجو تعديله

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

Sub طباعة_الكشوف()
  Range("F1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do
ActiveCell = ActiveCell + 1
Legan_Test
ActiveWindow.SelectedSheets.PrintOut
Loop While ActiveCell.Value <= Range("E1").Value
Range("b1").Select
End Sub

 

[احمد بدره]

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

لجان كنترول مدرسي.rar

[ناصر سعيد]

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

وبارك فيك يارب ..

  استاذ احمد

تمام

Sub طباعة_الكشوف()
  Range("F1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Do
ActiveCell = ActiveCell + 2
Legan_Test
ActiveWindow.SelectedSheets.PrintOut
Loop While ActiveCell.Value <= Range("E1").Value
Range("b1").Select
End Sub

 

=======

عندما ارسل اليك رساله على الخاص تاتيني رساله بانك لاتستطيع استلام الرساله ... لماذا ؟