teacher maher قام بنشر أبريل 29, 2011 مشاركة قام بنشر أبريل 29, 2011 السلام عليكم ورحمة الله وبركاته إلى اساتذتى الكرام الأفاضل استفت كثيرا مما قدمه لى الأستاذ الفاضل ابوأحمد واشكره على هذا ولى طلب جديد واسف اذا كانت طلباتى كصيرة على حضراتكم الطلب هو بعد تصميم الفورم وظهور النتيجة عليها أريد وضع زرار على الفورم يقوم بطباعة شهاده الطالب ولكنها ليست التى على الفورم حيث قمت بتصميم شهاده فى أخر شيت فى المشروع الخاص بى واريد من خلال هذا الزرار باستخدام الكود ان يطبع الشهادة بضيغاتها النهائية التى فى الشيت من حيث اسم المدرسة , والصف , و لجنة النظام والمراقبة وغيرها من البيانات ومنها طبعا درجات الطالب فى جميع المواد حيث معظم هذه الاشياء لا تكون موجوده فى الفورم فقمت بتصميم شهاده فى شت اخر غير شيت الدرجات واريد ان اطبع هذه الشهادات من الفورم بدليل رقم الجلوس الذى استخدمته فى الحصول على النتيجة فهل هناك كود لذلك واكون شاكر جدا لحضراتكم افيدونى افادكم الله تعالى وجعله الله فى ميزان حسناتكم رابط هذا التعليق شارك More sharing options...
zine pef قام بنشر أبريل 29, 2011 مشاركة قام بنشر أبريل 29, 2011 و عليكم السلام سوف تجد ما تبحث إن شاء الله إن كان الملف مرفق للتوضيع رابط هذا التعليق شارك More sharing options...
teacher maher قام بنشر أبريل 30, 2011 الكاتب مشاركة قام بنشر أبريل 30, 2011 و عليكم السلام سوف تجد ما تبحث إن شاء الله إن كان الملف مرفق للتوضيع السلام عليكم ورحمة الله وبركاته هل لابد من وجود المرفق رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أبريل 30, 2011 مشاركة قام بنشر أبريل 30, 2011 السلام عليكم ورحمة الله وبركاته هل لابد من وجود المرفق اخي ماهر المرفق ضروري لفهم المطلوب واضافة التعديلات عليه واذا كان بالملف بيانات لا تريد لاحد الاطلاع عليها فبامكانك استبدالها ببيانات رمزية ابواحمد رابط هذا التعليق شارك More sharing options...
teacher maher قام بنشر أبريل 30, 2011 الكاتب مشاركة قام بنشر أبريل 30, 2011 و عليكم السلام سوف تجد ما تبحث إن شاء الله إن كان الملف مرفق للتوضيع السلام عليكم ورحمة الله وبركاته هل لابد من وجود المرفق الملف هو نفس الملف السابق الذى بعته لحضرتك من قبل لا اعلم اذا كان عند حضرتك ام لاء رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر أبريل 30, 2011 مشاركة قام بنشر أبريل 30, 2011 اخي ابو احمد بارك الله فيك على تواصلك الجميل ===================================== المعلم الفاضل ماهر لا اريد ان اتدخل ولكن ربما يكون ابو احمد مشغول فبامكانك ارسال الملف لكي اساعدك انا او باقي الاعضاء فلا بد من وجود الملف رابط هذا التعليق شارك More sharing options...
عبد القادر ابو قام بنشر أبريل 30, 2011 مشاركة قام بنشر أبريل 30, 2011 جزاك الله خير رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أبريل 30, 2011 مشاركة قام بنشر أبريل 30, 2011 اخي ابو احمد بارك الله فيك على تواصلك الجميل اشكرك استاذ ابوعبدالله على كلماتك الجميلة ولا انسى فضلك ومساعدتك لي ابواحمد المعلم الفاضل ماهر لا اريد ان اتدخل ولكن ربما يكون ابو احمد مشغول فبامكانك ارسال الملف لكي اساعدك انا او باقي الاعضاء فلا بد من وجود الملف استاذنا الفاضل ابو عبدالله انت تدخلك واطلالتك ومشاركتك في الموضوع تزيده شرف مع العلم ان الاستاذ ماهر وفي مشاركته السابقة لم يقم بارفاق ملف وانما وضعت ملف من عندي ابواحمد رابط هذا التعليق شارك More sharing options...
teacher maher قام بنشر أبريل 30, 2011 الكاتب مشاركة قام بنشر أبريل 30, 2011 اخي ابو احمد بارك الله فيك على تواصلك الجميل ===================================== المعلم الفاضل ماهر لا اريد ان اتدخل ولكن ربما يكون ابو احمد مشغول فبامكانك ارسال الملف لكي اساعدك انا او باقي الاعضاء فلا بد من وجود الملف ولا يهمك اخى ابوعبدالله وجزاك الله كل خير وان شاء الله المرفق يكون موجود بس هذا مجرد مثال tagarb1.rar رابط هذا التعليق شارك More sharing options...
احمد حمور-ابوعبدالله قام بنشر أبريل 30, 2011 مشاركة قام بنشر أبريل 30, 2011 اعذرني اخي الكريم لانني لا يوجد عندي الا اوفيس 2003 وهو ما افضله رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر أبريل 30, 2011 مشاركة قام بنشر أبريل 30, 2011 ولا يهمك اخى ابوعبدالله وجزاك الله كل خير وان شاء الله المرفق يكون موجود بس هذا مجرد مثال 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 ضع هذا الكود في زر امر جديد في الفورم ابواحمد رابط هذا التعليق شارك More sharing options...
teacher maher قام بنشر أبريل 30, 2011 الكاتب مشاركة قام بنشر أبريل 30, 2011 ولا يهمك اخى ابوعبدالله وجزاك الله كل خير وان شاء الله المرفق يكون موجود بس هذا مجرد مثال 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 ضع هذا الكود في زر امر جديد في الفورم ابواحمد اعذورونى اساتذتى لم اكن اعلم ان المرفقات من الضروريات لعرض الموضوع وانا اعتذر مرة اخرى وان شاء الله لو فى اى استفسار سوف ارفق ملف لحضراتكم معه وباذن الله تعالى عندما انتى من الشيت سوف ارفقه على الموقع ليستفيدبه غيرى لان العلم ليس ملك لى وانما هو هبه من الله لجميع خله فانا اعتذرة مرة ثانية اخى ابوأحمد ويا اخى أبوعبدالله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.