مطلوب المساعدة في كــود طباعة ملف

[أيمن ابراهيم]

السلام عليكم اعضاء المنتدى الكرام

برجاء المساعدة او التعديل لطباعة الملف المرفق

مع وافر التحية والاحترام لجميع اعضاء المنتدى

طباعة.rar

[ياسر خليل أبو البراء]

أخي أيمن ..

المدارس كما لاحظت في ملفك تظهر بمجرد التغيير في الخلية AA2 ...ما المطلوب إذاً إذا كانت كل مدرسة تظهر بمجرد أن تغير الرقم في الخلية المذكورة .؟؟

وضح بشكل أكثر لو سمحت

[ياسر خليل أبو البراء]

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

طباعة.rar

[أيمن ابراهيم]

أخي أيمن ..

المدارس كما لاحظت في ملفك تظهر بمجرد التغيير في الخلية AA2 ...ما المطلوب إذاً إذا كانت كل مدرسة تظهر بمجرد أن تغير الرقم في الخلية المذكورة .؟؟

وضح بشكل أكثر لو سمحت

اشكرك استاذى ياسر على اهتمامك

احتاج الى امر طباعة واحد لجميع المدراس 

[أيمن ابراهيم]

الى خـــبراء كتابة الاكواد بالمنتدى 

برجاء المساعدة في كود طباعة يقوم بطباعة الملف المرفق في اول مشاركة بامر طباعة واحد

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

[ياسر خليل أبو البراء]

الأخ الحبيب أيمن

جرب الملف التالي ... وإن شاء الله يفي بالغرض

Print All Schools.rar

[أيمن ابراهيم]

الأخ الحبيب أيمن

جرب الملف التالي ... وإن شاء الله يفي بالغرض

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

الشكر كل الشكر لجميع خبراء المنتدى 

ونفعنا الله بعلمكم

[أيمن ابراهيم]

الأخ الحبيب أيمن

جرب الملف التالي ... وإن شاء الله يفي بالغرض

اخي الحبيب ياسر خليل اشكرك الملف المرفق من سيادتكم بة ما اريد  

ولكن الملف الاساسى بة 106 مدرسة باجمالي عدد طلاب 8000 طالب

يوجد احتمال حدوث عطل ما اثناء الطباعة بعد طباعة جزء كبير من الملف مثل انقطاع التيار الكهربي مثلاً 

فهل توجد امكانية تكملة طباعة الملف من أخر صفحة قبل حدوث العطل

نفعنا الله بعلمكم

تقبل تحياتي

[أبو إيمان]

بعد إذن استاذنا / الأستاذ : ياسر خليل 

هذه محاولة من تلميذ  ونرجوا التقييم

هذا تعديل على كود الأستاذ ياسر لعلها تحقق المطلوب

Option Explicit

Sub PrintAll()
    Dim X As Long
    Application.ScreenUpdating = False
        
        For X = Range("AA2").Value To 106
            Range("AA2").Value = X
            ActiveWindow.SelectedSheets.PrintOut Copies:=1
            
            With ThisWorkbook
        .Save
End With
        Next X
    Application.ScreenUpdating = True
End Sub

[ياسر خليل أبو البراء]

تسلم يا أبو إيمان فكرة جميلة جداً

بارك الله فيك ..شكلك بدأت تشتغل شغل عالي .. شكلنا هنطلع ع المعاش قريب ..

تقبل تحياتي القلبية

[أيمن ابراهيم]

 

بعد إذن استاذنا / الأستاذ : ياسر خليل 

هذه محاولة من تلميذ  ونرجوا التقييم

هذا تعديل على كود الأستاذ ياسر لعلها تحقق المطلوب

Option Explicit

Sub PrintAll()
    Dim X As Long
    Application.ScreenUpdating = False
        
        For X = Range("AA2").Value To 106
            Range("AA2").Value = X
            ActiveWindow.SelectedSheets.PrintOut Copies:=1
            
            With ThisWorkbook
        .Save
End With
        Next X
    Application.ScreenUpdating = True
End Sub

اخى الحبيب ابو ايمان اشكرك على اهتمامك وبارك الله فيك وفي امثالك

تقبل تحياتي

[أيمن ابراهيم]

 

بعد إذن استاذنا / الأستاذ : ياسر خليل 

هذه محاولة من تلميذ  ونرجوا التقييم

هذا تعديل على كود الأستاذ ياسر لعلها تحقق المطلوب

Option Explicit

Sub PrintAll()
    Dim X As Long
    Application.ScreenUpdating = False
        
        For X = Range("AA2").Value To 106
            Range("AA2").Value = X
            ActiveWindow.SelectedSheets.PrintOut Copies:=1
            
            With ThisWorkbook
        .Save
End With
        Next X
    Application.ScreenUpdating = True
End Sub

اخى الحبيب ابو ايمان اشكرك على اهتمامك وبارك الله فيك وفي امثالك

تقبل تحياتي

[ياسر خليل أبو البراء]

المشاركة رقم 12 مشاركة مكررة ..

تقبل تحياتي

[أبو إيمان]

الأستاذ أيمن  جزاكم الله خيرا

الأستاذ ياسر هذا ثمرة ما نتعلمه في هذه المدرسة 

ومن فات قديمه تاه وبعدين انتوا البركة بتاعتنا نتعلم منكم

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

وشهادتك اعتز بها رغم اني اشعر انها محاولة قاصرة وأكيد عندك أفضل منها بكثيررررر

[ياسر خليل أبو البراء]

أخي الحبيب أبو إيمان

مشكلة الكهرباء في مصر أصبحت شيء عادي .. يعني لو الكهربا مقطعتش يبقا الواحد نفسيته مش مرتاحة .. يحس إن فيه حاجة غلط

اتعودنا على كدا ..

يعني لو طرحنا المشكلة في المنتديات الأجنبية على سبيل المثال ، أكيد هيكون الرد (معقولة الكهربا ممكن تقطع !) وممكن يعجزوا عن حل المشكلة لأنهم لم يواجهوها من قبل

بصراحة فكرتك بسيطة ورائعة وحلت المشكلة بالتأكيد

بارك الله فيك وجزاك الله خير الجزاء

[أبو إيمان]

شكرا على شهادتك أستاذنا