أبو محمد عباس قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 السلام عليكم الاخوة الاعزاء والاساتذة الكرام رمضان كريم اعاده الله سبحانه وتعالى على الامة الاسلامية وعلى البشرية جمعاء وعليكم جميعا بالخير والبركات وتقبل الله سبحانه وتعالى صيامكم وقيامكم في هذا الشهر الفضيل لي طلب حول طباعة الشهادات شاهدت موضوع مشابه وحاولت تطبيقه ولكنني لم افلح في ذلك ارجو مساعدتي في كود لطباعة جميع الشهادات وكود لطباعة عدد محدد من الشهادات وارجو ان يكون سهل التطبيق حتى استطيع ان اطبقه على بقية الشهادات من حيث تعيين نطاق الطباعة والتغيير من خلال النطاق وتقبلوا دعواتي لكم بالموفقية والنجاح ودمتم برعاية الله وحفظه الشهادات.rar
رجب جاويش قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 أخى الفاضل / عباس السماوى كل عام وأنتم بخير هذه هى الأكواد الخاصة بالفصل 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 1
أبو محمد عباس قام بنشر يوليو 20, 2012 الكاتب قام بنشر يوليو 20, 2012 السلام عليكم الاستاذ العزيز رجب دام عزكم وحفظكم الله ورعاكم جزاك الله خيرا واكواد اكثر من رائعة جعلها الله سبحانه وتعالى في ميزان حسناتكم وتقبل الله منكم قيامكم وصيامكم في الشهر الفضيل رمضان المبارك استاذي الفاضل توجد مشكلة فقط في كود (الطبع المحدد) وهي في حال طلب عدد مثلا اربعة شهادات من 25 الى 28 فالمفروض يطبع شهادتين مع بعض 25 و26 في ورقة واحدة و27و 28 في ورقة واحدة اخرى لكن الكود يقوم بتكرار الشهادة الثانية من كل ورقة يعني يطبع اربعة اوراق 25و26 في ورقة واحدة و26و27 في اخرى و27و28 في اخرى وفي الورقة الرابعة يطبع 28و29 اخي العزيز جميعنا ان شاء الله صيام ارجو عدم الاستعجال في الرد خوفا على سلب راحتك فارجو ان يكون الحل على حسب فراغك وراحتك وتقبل الله منكم ومنا صالح الاعمال ودمتم برعاية الله وحفظه 1
بن علية حاجي قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 السلام عليكم ورحمة الله تقبل الله منا ومنكم الصيام والقيام وصالح الأعمال... أخي الكريم وأستسمح أخي العزيز رجب لأقوم بتغيير طفيف على كوده حسب المطلوب الجديد... في الكود الخاص بطباعة المحدد عليك تغيير السطر For I = Range("E1") To Range("F1") بالسطر For I = Range("E1") To Range("F1") Step 2 والله أعلم 2
رجب جاويش قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 أخى الفاضل / عباس السماوى بعد التحية عذرا لهذا السهو برجاء استبدال السطر التالى For I = Range("E1") To Range("F1") بالسطر التالى For I = Range("E1") To Range("F1") Step 2 وكل عام وأنتم بخير 2
رجب جاويش قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 أخى الفاضل / بن عليه حاجى سبحان من جعل الأفكار تتواصل فى وقت واحد كل عام وأنتم بخير
أبو محمد عباس قام بنشر يوليو 20, 2012 الكاتب قام بنشر يوليو 20, 2012 (معدل) السلام عليكم الاستاذ الفاضل وعميد المنتدى الرائع دغيدي المحترم كما يحب بعض الاساتذه ان يسموك وانا ايضا احب هذا الاسم ان يطلق عليك بارك الله فيك وجزاك الله خيرا وتقبل الله منكم القيام والصيام في هذا الشهر الفضيل نسال الله ان يحفظكم ويرعاكم استاذي الفاضل جاري التجربة ودمتم بحفظ الله ورعايته تم تعديل يوليو 20, 2012 بواسطه عباس السماوي
أبو محمد عباس قام بنشر يوليو 20, 2012 الكاتب قام بنشر يوليو 20, 2012 السلام عليكم الاساتذة الكرام والاخوة الاعزاء الاستاذ دغيدي المحترم الاستاذ رجب المحترم والاستاذ بن عليه حاجي المحترم جزاكم الله خيرا ووفقكم لعمل الخير في هذا الشهر الكريم وجعل اعمالكم في ميزان حسناتكم والحقيقة انا اليوم محظوظ وازهو وافتخر بين زملائي لان اساتذة كبار مثلكم قامو بالرد على موضوعي وكل عام وانتم بالف خير والسلام عليكم ورحمة الله وبركاته
أبو محمد عباس قام بنشر يوليو 20, 2012 الكاتب قام بنشر يوليو 20, 2012 السلام عليكم رمضان كريم تقبل الله الطاعات الاستاذ الفاضل وعميدالمنتدى دغيدي المحترم جزاك الله خيرا الكودان يعملان بشكل ممتاز ورائع لكن هناك مشكلة بسيطة حاولت ان احلها لكنني لم استطع وهي طباعة الاطار الايسر للشهادة يكون في ورقة اخرى يعني الشهادة تطبع لكن من دون الاطار الايسر ارجو المساعدة وتقبل دعواتي لك بالموفقية والنجاح الاستاذان الفاضلان رجب وبن عليه المحترمين جزاكم الله خيرا وتقبل الطاعات الان اصبح الكود تمام ودمتم جميعا برعاية الله وحفظه
فضل حسين قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 الى الاخوة الافاضل كل عام وانتم بخير نرجو من سيادتكم للاستمتاع بهذا العمل الرائع ولزيادة فى الاستفادة والمعرفة والعلم نستئذن سيادتكم بنسخة من الملف ولكن بتنسيق اكسل 2003 لانه اكيد مما لاشك فيك اكيد عمل رائع ولسيادتكم جزيل الشكر
دغيدى قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 (معدل) أخى الفاضل / عباس السماوي تفضل الملف 2007 وشكرا على كلامكم الطيب أخى الفاضل / فضل 1 تفضل الملف 2003 الشهادات 2.rar الشهادات 2003.rar تم تعديل يوليو 20, 2012 بواسطه دغيدى 1
خالد الشاعر قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 (معدل) يسلم كل من شارك فى هذا الحل بارك الله فيكم وجزاكم كل خير تم تعديل يوليو 20, 2012 بواسطه khhanna
أبو محمد عباس قام بنشر يوليو 20, 2012 الكاتب قام بنشر يوليو 20, 2012 السلام عليكم الاستاذ الفاضل العميد دغيدي أحسنتم وجزاك الله خيرا وجعله الله سبحانه وتعالى في ميزان حسناتك وتقبل الله الطاعات ودمتم برعاية الله وحفظه
فضل حسين قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 استاذى الفاضل / عميد الاكسل دغيدى الف شكر ياحبيبى وجزاك الله كل خير وكل عام وسيادتكم والاسرة الكريمة بخير والامة الاسلامية بمناسبة شهر رمضان المبارك اعاده الله على الجميع بالخير واليمن والبركات
دغيدى قام بنشر يوليو 20, 2012 قام بنشر يوليو 20, 2012 أخى الفاضل / عباس السماوي أخى الفاضل / فضل 1 كل عام وأنتم بخير وصحة وسعادة رمضان كريم
الردود الموصى بها