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

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

قام بنشر

السلام عليكم

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

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

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

                             الشهادات.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

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

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

قام بنشر

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

دغيدى

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

قام بنشر

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

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

كل عام وأنتم بخير وصحة وسعادة

رمضان كريم

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

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

Important Information