اذهب الي المحتوي
أوفيسنا

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


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

السلام عليكم

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

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

ودمتم برعاية الله وحفظه

                             الشهادات.rar

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

أخى الفاضل / عباس السماوى

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

هذه هى الأكواد الخاصة بالفصل A

أرجو التجربة وان كانت تمام يتم تطبيقها على باقى الفصول


Sub طبع_محدد()

Dim I As Integer

For I = Range("E1") To Range("F1")

	 Range("J1") = I

If I <= Range("K1") Then

	 ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30"

	 ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End If

Next I

Range("E1").Select

End Sub

Sub طباعة_ورقة_واحدة()

ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

End Sub

Sub طباعة_الكل()

Range("J1").Select

ActiveCell.FormulaR1C1 = "1"

ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30"

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Do

ActiveCell = ActiveCell + 2

ActiveWindow.SelectedSheets.PrintOut

Loop Until ActiveCell.Value >= Range("C1").Value

Range("E1").Select

End Sub

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

ActiveSheet.PageSetup.PrintArea = "$B$2:$P$30"

وهو طبعا سوف يتغير من فصل لآخر

مع بعض التغيرات فى الأكود حسب نطاق وخلايا بيانات كل فصل

الشهادات.rar

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

السلام عليكم

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

استاذي الفاضل توجد مشكلة فقط في كود (الطبع المحدد) وهي في حال طلب عدد مثلا اربعة شهادات من 25 الى 28 فالمفروض يطبع شهادتين مع بعض 25 و26 في ورقة واحدة و27و 28 في ورقة واحدة اخرى لكن الكود يقوم بتكرار الشهادة الثانية من كل ورقة يعني يطبع اربعة اوراق 25و26 في ورقة واحدة و26و27 في اخرى و27و28 في اخرى وفي الورقة الرابعة يطبع 28و29

اخي العزيز جميعنا ان شاء الله صيام ارجو عدم الاستعجال في الرد خوفا على سلب راحتك فارجو ان يكون الحل على حسب فراغك وراحتك وتقبل الله منكم ومنا صالح الاعمال

ودمتم برعاية الله وحفظه

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

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

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

أخي الكريم وأستسمح أخي العزيز رجب لأقوم بتغيير طفيف على كوده حسب المطلوب الجديد... في الكود الخاص بطباعة المحدد عليك تغيير السطر

For I = Range("E1") To Range("F1")
بالسطر
For I = Range("E1") To Range("F1") Step 2

والله أعلم

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

أخى الفاضل / عباس السماوى

بعد التحية

عذرا لهذا السهو

برجاء استبدال السطر التالى


For I = Range("E1") To Range("F1")

بالسطر التالى

For I = Range("E1") To Range("F1") Step 2

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

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

السلام عليكم

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

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

ودمتم بحفظ الله ورعايته

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

السلام عليكم

الاساتذة الكرام والاخوة الاعزاء

الاستاذ دغيدي المحترم

الاستاذ رجب المحترم

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

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

والحقيقة انا اليوم محظوظ وازهو وافتخر بين زملائي لان اساتذة كبار مثلكم قامو بالرد على موضوعي

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

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

السلام عليكم

رمضان كريم تقبل الله الطاعات

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

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

ودمتم جميعا برعاية الله وحفظه

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

الى الاخوة الافاضل

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

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

لانه اكيد مما لاشك فيك اكيد عمل رائع

ولسيادتكم جزيل الشكر

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

أخى الفاضل / عباس السماوي

تفضل الملف 2007

وشكرا على كلامكم الطيب

أخى الفاضل / فضل 1

تفضل الملف 2003

الشهادات 2.rar

الشهادات 2003.rar

تم تعديل بواسطه دغيدى
  • Like 1
رابط هذا التعليق
شارك

السلام عليكم

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

ودمتم برعاية الله وحفظه

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

استاذى الفاضل / عميد الاكسل

دغيدى

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

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

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

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

Important Information