teacher maher قام بنشر أبريل 29, 2011 قام بنشر أبريل 29, 2011 السلام عليكم ورحمة الله وبركاته إلى اساتذتى الكرام الأفاضل استفت كثيرا مما قدمه لى الأستاذ الفاضل ابوأحمد واشكره على هذا ولى طلب جديد واسف اذا كانت طلباتى كصيرة على حضراتكم الطلب هو بعد تصميم الفورم وظهور النتيجة عليها أريد وضع زرار على الفورم يقوم بطباعة شهاده الطالب ولكنها ليست التى على الفورم حيث قمت بتصميم شهاده فى أخر شيت فى المشروع الخاص بى واريد من خلال هذا الزرار باستخدام الكود ان يطبع الشهادة بضيغاتها النهائية التى فى الشيت من حيث اسم المدرسة , والصف , و لجنة النظام والمراقبة وغيرها من البيانات ومنها طبعا درجات الطالب فى جميع المواد حيث معظم هذه الاشياء لا تكون موجوده فى الفورم فقمت بتصميم شهاده فى شت اخر غير شيت الدرجات واريد ان اطبع هذه الشهادات من الفورم بدليل رقم الجلوس الذى استخدمته فى الحصول على النتيجة فهل هناك كود لذلك واكون شاكر جدا لحضراتكم افيدونى افادكم الله تعالى وجعله الله فى ميزان حسناتكم
zine pef قام بنشر أبريل 29, 2011 قام بنشر أبريل 29, 2011 و عليكم السلام سوف تجد ما تبحث إن شاء الله إن كان الملف مرفق للتوضيع
teacher maher قام بنشر أبريل 30, 2011 الكاتب قام بنشر أبريل 30, 2011 في 29/4/2011 at 22:12, zine pef said: و عليكم السلام سوف تجد ما تبحث إن شاء الله إن كان الملف مرفق للتوضيع السلام عليكم ورحمة الله وبركاته هل لابد من وجود المرفق
عبدالله المجرب قام بنشر أبريل 30, 2011 قام بنشر أبريل 30, 2011 في 30/4/2011 at 06:47, teacher maher said: السلام عليكم ورحمة الله وبركاته هل لابد من وجود المرفق اخي ماهر المرفق ضروري لفهم المطلوب واضافة التعديلات عليه واذا كان بالملف بيانات لا تريد لاحد الاطلاع عليها فبامكانك استبدالها ببيانات رمزية ابواحمد
teacher maher قام بنشر أبريل 30, 2011 الكاتب قام بنشر أبريل 30, 2011 في 30/4/2011 at 06:47, teacher maher said: في 29/4/2011 at 22:12, zine pef said: و عليكم السلام سوف تجد ما تبحث إن شاء الله إن كان الملف مرفق للتوضيع السلام عليكم ورحمة الله وبركاته هل لابد من وجود المرفق الملف هو نفس الملف السابق الذى بعته لحضرتك من قبل لا اعلم اذا كان عند حضرتك ام لاء
احمد حمور-ابوعبدالله قام بنشر أبريل 30, 2011 قام بنشر أبريل 30, 2011 اخي ابو احمد بارك الله فيك على تواصلك الجميل ===================================== المعلم الفاضل ماهر لا اريد ان اتدخل ولكن ربما يكون ابو احمد مشغول فبامكانك ارسال الملف لكي اساعدك انا او باقي الاعضاء فلا بد من وجود الملف
عبدالله المجرب قام بنشر أبريل 30, 2011 قام بنشر أبريل 30, 2011 في 30/4/2011 at 14:11, احمد حمور-ابوعبدالله said: اخي ابو احمد بارك الله فيك على تواصلك الجميل اقتباس اشكرك استاذ ابوعبدالله على كلماتك الجميلة ولا انسى فضلك ومساعدتك لي ابواحمد في 30/4/2011 at 14:11, احمد حمور-ابوعبدالله said: المعلم الفاضل ماهر لا اريد ان اتدخل ولكن ربما يكون ابو احمد مشغول فبامكانك ارسال الملف لكي اساعدك انا او باقي الاعضاء فلا بد من وجود الملف اقتباس استاذنا الفاضل ابو عبدالله انت تدخلك واطلالتك ومشاركتك في الموضوع تزيده شرف مع العلم ان الاستاذ ماهر وفي مشاركته السابقة لم يقم بارفاق ملف وانما وضعت ملف من عندي ابواحمد
teacher maher قام بنشر أبريل 30, 2011 الكاتب قام بنشر أبريل 30, 2011 في 30/4/2011 at 14:11, احمد حمور-ابوعبدالله said: اخي ابو احمد بارك الله فيك على تواصلك الجميل ===================================== المعلم الفاضل ماهر لا اريد ان اتدخل ولكن ربما يكون ابو احمد مشغول فبامكانك ارسال الملف لكي اساعدك انا او باقي الاعضاء فلا بد من وجود الملف ولا يهمك اخى ابوعبدالله وجزاك الله كل خير وان شاء الله المرفق يكون موجود بس هذا مجرد مثال tagarb1.rar
احمد حمور-ابوعبدالله قام بنشر أبريل 30, 2011 قام بنشر أبريل 30, 2011 اعذرني اخي الكريم لانني لا يوجد عندي الا اوفيس 2003 وهو ما افضله
عبدالله المجرب قام بنشر أبريل 30, 2011 قام بنشر أبريل 30, 2011 في 30/4/2011 at 18:22, teacher maher said: ولا يهمك اخى ابوعبدالله وجزاك الله كل خير وان شاء الله المرفق يكون موجود بس هذا مجرد مثال Private Sub CommandButton2_Click() Sheets("الشهادات").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$L$41" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("A1").Select End Sub ضع هذا الكود في زر امر جديد في الفورم ابواحمد
teacher maher قام بنشر أبريل 30, 2011 الكاتب قام بنشر أبريل 30, 2011 في 30/4/2011 at 19:25, ولد المجرب said: في 30/4/2011 at 18:22, teacher maher said: ولا يهمك اخى ابوعبدالله وجزاك الله كل خير وان شاء الله المرفق يكون موجود بس هذا مجرد مثال Private Sub CommandButton2_Click() Sheets("الشهادات").Select ActiveSheet.PageSetup.PrintArea = "$A$1:$L$41" ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True Range("A1").Select End Sub ضع هذا الكود في زر امر جديد في الفورم ابواحمد اعذورونى اساتذتى لم اكن اعلم ان المرفقات من الضروريات لعرض الموضوع وانا اعتذر مرة اخرى وان شاء الله لو فى اى استفسار سوف ارفق ملف لحضراتكم معه وباذن الله تعالى عندما انتى من الشيت سوف ارفقه على الموقع ليستفيدبه غيرى لان العلم ليس ملك لى وانما هو هبه من الله لجميع خله فانا اعتذرة مرة ثانية اخى ابوأحمد ويا اخى أبوعبدالله
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.