اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by أيسم إبراهيم,

الردود الموصى بها

الأخوه الكرام لدى ماكرو للطباعه ولكن يوجد به مشكله وهى عند استخدام زر طباعة الكل يقوم المكرو بتجهيز وطباعة كل مافي ورقة الطباعة المقصود طباعته وغير المقصود علما بانه يوجد بالماكرو خليه وهى ( 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

رابط هذا التعليق
شارك

20060506_1439494595.gifالسلام عليكم أخ جلال

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

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

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

تم تعديل بواسطه aysam
رابط هذا التعليق
شارك

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

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

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

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

مرفق الملف

_____000________.rar

رابط هذا التعليق
شارك

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

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

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

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

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

:clapping: :clapping: :clapping:

20060506_1439494595.gif

_____000________.rar

رابط هذا التعليق
شارك

الأخ أيسم

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

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

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

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

رابط هذا التعليق
شارك

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

الأخ : stiffmillr

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

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

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

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

20060506_1439494595.gif

رابط هذا التعليق
شارك

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

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

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

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

________0_______.rar

رابط هذا التعليق
شارك

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

الأخ : جلال

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

أخوك : أيسم

:clapping: :clapping: :clapping:

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

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

رابط هذا التعليق
شارك

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

اخوك / جلال

Book1.rar

رابط هذا التعليق
شارك

  • أفضل إجابة

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

أخ : جلال

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

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

أخوك : أيسم

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

:clapping: :clapping: :clapping:

________0_______.rar

20060506_1439494595.gif

wow.gif

رابط هذا التعليق
شارك

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...

اخى ايسم

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

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

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

اخوك / جلال

رابط هذا التعليق
شارك

  • 2 weeks later...

اخى ايسم

السلام عليكم

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

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

اخوك / جلال

رابط هذا التعليق
شارك

أخ جلال

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

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

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

إلى اللقاء

أخوك أيسم

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

رابط هذا التعليق
شارك

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

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

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

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

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

أخوك : أيسم

رابط هذا التعليق
شارك

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

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

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

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

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

شكرا لكما

رابط هذا التعليق
شارك

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

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

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

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

اخوكم / جلال

رابط هذا التعليق
شارك

  • 2 weeks later...

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

رابط هذا التعليق
شارك

  • 5 weeks later...

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

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

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

تم تعديل بواسطه amhateb
رابط هذا التعليق
شارك

  • 3 weeks later...

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information