كود طباعة الشهادات

[جلال محمد]

ارجوا من السادة الكرماء من يوجد لديه كود طباعة الشهادات ارساله مع شرح بسيط له ولكم الشكر

[جلال محمد]

الأخوه الكرام لدى ماكرو للطباعه ولكن يوجد به مشكله وهى عند استخدام زر طباعة الكل يقوم المكرو بتجهيز وطباعة كل مافي ورقة الطباعة المقصود طباعته وغير المقصود علما بانه يوجد بالماكرو خليه وهى ( c1 ) تشير الي عدد الشهادات المطلوب طباعتها اما زر طباعة ورقه واحده فلا يوجد به مشكله وهذا المكرو حصلت عليه من الأخ ايسم ابراهيم جزاه الله خير والمكرو هو

Sub ()

'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True
End Sub
Sub printall()
'
'ãÇßÑæprintall
'

Range("E1").Select
ActiveCell.FormulaR1C1 = "1"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, collate:=True
Do
ActiveCell = ActiveCell + 2
ActiveWindow.SelectedSheets.PrintOut
Loop Until ActiveCell.Value = Range("C1").Value
Range("a1").Select
End Sub

[أيسم إبراهيم]

السلام عليكم أخ جلال

كل عام و أنتم بخير

أرسل الملف و وضح به المطلوب أقوم بحل المشكلة إن شاء الله

أخوك : أيسم إبراهيم

تم تعديل أكتوبر 11, 2008 بواسطه aysam

[جلال محمد]

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

وانت بخير والجميع بخير ان شاء الله

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

فهل من طريقه لطباعة عدد معين من الشهادات مثل ( 10 أو 20 أو اكثر من ذلك ) ؟ خصوصا انه بالتأكيد لبد من وجود طلاب لهم دور ثانى واريد طباعة شهاداتهم منفصله علي سبيل المثال ... ولك كل تحياتى واسف على ازعاجك مره اخرى .... أخوك / جلال محمد

مرفق الملف

_____000________.rar

[أيسم إبراهيم]

السلام عليكم أخ جلال

ما بين الإخوة إزعاج

آسف على التأخير في الرد

إليك ما طلبت أتمنى أن يحقق الغرض و أي طلب أو تعديل أنا تحت أمرك

أخوك : أيسم إبراهيم

:clapping:

_____000________.rar

[Ahmed Emannan]

أحسنت

[جلال محمد]

الأخ أيسم

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

فكرة رائعه*** ولك منى جزيل الشكر وجعله الله فى ميزان حسناتك .

فالموضوع مطروح فى المنتدى من يوم 6 / 10 / 2008 ولم ينظر اليه أحد... فلك منى كل الشكر على مساعدتك وكان الله فى عونك مادمت فى عون اخيك .

أخوك جلال محمد

[أيسم إبراهيم]

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

الأخ : stiffmillr

شكرا على مرورك

الأخ : جلال لا شكر على واجب فنحن إخوة وشكرا على دعواتك"" و لك مثل ما دعوت""

ما زلت تحت أمرك لو جدت لك مشكلة

أخوك : أيسم إبراهيم :wow:

[جلال محمد]

اخى الكريم ايسم

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

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

اخوك / جلال محمد

________0_______.rar

[أيسم إبراهيم]

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

الأخ : جلال

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

أخوك : أيسم

:clapping:

http://www.officena.net/ib/style_emoticons/default/wow.gif

http://www.arabmoheet.net/forum/Members_Up..._1439494595.gif

[جلال محمد]

اخى ايسم شكرا لك على اهتمامك واسف على ازعاجك وخز وقتك فأنا لست مستعجل ومرفق ملف ارجو الاطلاع عليه وتفسير مابه .. وجزاك الله كل خير

اخوك / جلال

Book1.rar

[أيسم إبراهيم]

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

أخ : جلال

تفضل ما طلبت بالملف الأول أرجو أن يكون كما تريد

و أي استفسار أو تعديل أنا تحت أمرك

أخوك : أيسم

بالمناسبة أحنا طلعنا جيران فأنا من ( بنها )

:clapping:

________0_______.rar

[جلال محمد]

اخى ايسم .. السلام عليكم .. حفظكم الله

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

[جلال محمد]

اخى ايسم

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

اولا / والله لقد سعدت جدا لعودة المنتدى مره اخرى على العنوان الجديد النت بدون هذا الموقع ليس ممتع ولامفيد

ثانيا / ارجو منك ان ترسل رد على الملف الذى ارسلته من قبل ولك جزيل الشكر

اخوك / جلال

[أيسم إبراهيم]

السلام عليكم أخي جلال

آسف على التأخير _____ النت كان قاطع عندي طول الشهر الماضي

إليك الرد مع تحياتي

Book1.rar

[جلال محمد]

اخى ايسم

السلام عليكم

اخى ايسم ( من لن يحتمل التعلم ساعةبقي في ذل الجهل أبدا ) .. وانا عندى استعداد انتظرك شهور مادمت الحمد الله بخير فقد زاد قلقى عليه فوالله انى احبك في الله ولك جذيل الشكر ويكفينى انك لم تنسى طلبى جعله الله في ميزان حسناتك ان شاء الله

اخى ايسم ( إذا قصرت يدك عن المكافأة فليصل لسانك بالشكر ) فشكرا لك الف شكر

اخوك / جلال

[أيسم إبراهيم]

أخ جلال

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

أحبك الله الذي أحببتني فيه

لا يصدر هذا الكلام الجميل إلا من أنسان ر ائع مثلك ..... كافأك الله بالطيب

إلى اللقاء

أخوك أيسم

http://www.officena.net/ib/style_emoticons...tyle_emoticons/ efault/wow.gif

[wayl]

السلام عليكم

الفكرة طيبة والمشروع متكامل ولكن رأيت أن الشهادات تبدأ ( إلزاماً ) برقم واحد , فهل ممكن أن أحدد الرقم الذي أريد أن تبدأ منه الطباعة وشكراً .

[أيسم إبراهيم]

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

أخ وائل ممكن ما تريد

اذهب إلى الخلية E2 في نتيجة الكيمياء و حدد الرقم الذي تريد طباعة شهادته ثم انقر الزر ( اطبع ورقة واحدة )

يتم طباعة الشهادة التي اخترت

جرب و انا تحت أمرك

أخوك : أيسم

[amhateb]

أرجو المعذرة للتدخل

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

أعجبني عمل الكنترول للأخ جلال

وأعجبني التعديل من الأح أيسم

ولكن الأجمل من ذلك وذلك هو روح التعاون والأخوة بين الأثنين

شكرا لكما

[جلال محمد]

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

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

والى الأخ وائل يمكن تحديد رقم عن طريق القائمه النسدله التى بها الأسماء وكذلك عن طريق الخليه E2 كما تفضل الأخ ايسم

كما اشكر الأخ amhateb لمروره وكلماته الجميله اما عن روح التعاون فهذا الموقع تسوده هذه الروح وصفه مميزه به وشكرا للجميع

اخوكم / جلال

[wayl]

شكراً على الرد ولكن قصدي هو إذا أردت أن أطبع أكثر من شهادة فهل يلزم أن تبدأ بالرقم ( 1 ) , فلو أردت أن تبدأ الطباعة من الرقم 20 مثلاً فماذا أصنع . وعفواً على التأخر في الأطلاع على الموضوع وذلك لأسباب خاصة ودمتم . أخوك

[amhateb]

هذا الموضوع جميل وخاصة شيت نصف العام

حاولت تنفيذه بالمدرسة بعد اضافة ارقام الجلوس واعمال السنة ولكنه يحتاج تعديل في ترتيب المواد حسب الشيت الجديد

شكرا للمعد وشكرا للمصحح جلال وأيسم

تم تعديل يناير 14, 2009 بواسطه amhateb

[عادل حنفي]

السلام عليكم

بعد اذن الجميع

اخي wayl

مرفق ملف لتحديد الرقم الذي تريد الطباعة من عنده

تحياتي

________________________.rar

[محمدمطر]

السلام عليكم جميعا

عمل ممتاز وجميل من الاخ ايسم وكل من لديه فكرة جميل ولكن ما نريده من المتخصصين فى الاكسيل هو

شرح افكارة وطريقة عمل هذا الشيت لكى نتعلم ولا ناخذ العمل الجاهز ونعدل عليه فلن نتعلم اذا والهدف هو نتعلم كيف ننفذ

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