عبد الفتاح كيرة قام بنشر مايو 20, 2011 قام بنشر مايو 20, 2011 السلام عليكم بناء على رغبة الأخ أبي علاء فى إفراد هذه الموضوع فى موضوع مستقل لأهميته فقد نفذت له رغبته و المشاركات و الحلول تجدونها هنا ويمكن للجميع الإدلاء بمعارفهم طبعا لإثراء الموضوع وفق الله الجميع
الـعيدروس قام بنشر مايو 20, 2011 قام بنشر مايو 20, 2011 السلام عليكم ورحمة الله وبركاته استاذ وعبقري ورمز ساطع من رموز الصرح الجميل اوفسينا جزاك الله كل كل خير وفي ميزان حسناتك انشاء الله الله يوفقك ودمت في حفظ الله ورعايته تلميذك المحب أبو نصار
عبد الفتاح كيرة قام بنشر مايو 20, 2011 الكاتب قام بنشر مايو 20, 2011 عليكم السلام و رحمة الله تعالى و بركاته شكرا لك أخى الفاضل أبا نصار على كلامك الطيب و شعورك الطيب وفقك الله لكل خير و أنا تلميذ فى هذا الصرح الساطع أوفيسنا وفق الله الجميع لمرضاته
ابو الآء قام بنشر مايو 20, 2011 قام بنشر مايو 20, 2011 بارك الله فيك وجعله فى ميزان حسناتك الكلمات لا تكفى امثالك تقبل الله منا ومنك صالح الاعمال
ابو الآء قام بنشر مايو 20, 2011 قام بنشر مايو 20, 2011 بارك الله فيك وجعله فى ميزان حسناتك الكلمات لا تكفى امثالك تقبل الله منا ومنك صالح الاعمال
عبد الفتاح كيرة قام بنشر مايو 20, 2011 الكاتب قام بنشر مايو 20, 2011 جزيل الشكر لك أخى الفاضل وفقك الله لكل خير
الـعيدروس قام بنشر مايو 21, 2011 قام بنشر مايو 21, 2011 السلام عليكم الاستاذ كيماس اضفت بعض التعديلات للكود ينفع لمن يطبع لورقة تقارير وليست قاعدة بيانات بعد الطباعه يقوم بحذف مدى انت تحدده في الكود اليكم الكود انشاء الله تستفيدو من الاضافه Private Sub Workbook_BeforePrint(Cancel As Boolean) If ActiveSheet.CodeName = "ورقة3" Then Application.EnableEvents = False Cancel = True With ActiveSheet.PageSetup .RightHeader = Sheets(3).Range("c1").Value .CenterHeader = Sheets(3).Range("am1").Value .LeftHeader = Sheets(3).Range("Ao1").Value .RightFooter = Sheets(3).Range("Av1").Value & Date With ورقة3 ورقة3.PrintOut Union(.[A3:az300], [a5]).ClearContents End With End With Application.EnableEvents = True End If 1 End Sub
الـعيدروس قام بنشر مايو 21, 2011 قام بنشر مايو 21, 2011 (معدل) السلام عليكم وهذا كود تحديد مده زمنيه على حسب التاريخ وبعدها تتلغي الطباعه من الملف يصبح اختصار ctrl +f2 غير مفعل اليكم الكود Private Sub Workbook_BeforePrint(Cancel As Boolean) If Date >= VBA.DateSerial(2011, 5, 22) Then Cancel = True End If End Sub تم تعديل مايو 21, 2011 بواسطه alidroos
الـعيدروس قام بنشر مايو 21, 2011 قام بنشر مايو 21, 2011 السلام عليكم وهالكود لحصر طباعة ورقة لأسم معرف فقط غيره مقيد على المستخدم اليكم الكود Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("ورقة1").PageSetup.PrintArea = ورقة1.Range("PrintArea").Address End Sub
عبد الفتاح كيرة قام بنشر مايو 21, 2011 الكاتب قام بنشر مايو 21, 2011 شكرا جزيلا أستاذ على و استفدت كثيرا من إضافاتك هنا إن شاء الله ينتفع بها الأعضاء جزاك الله خيرا
جلال محمد قام بنشر مايو 21, 2011 قام بنشر مايو 21, 2011 اخى الكريم كيماس جزاك الله كل خير عمل اكثر من رائع وشكرا جزيلا لمن شارك فيه بافكارة ونرجو من الأخ كيماس كما عودتنا شرح للعمل ( وحشنا صوتك والله ) شكرا لكم
عبد الفتاح كيرة قام بنشر مايو 21, 2011 الكاتب قام بنشر مايو 21, 2011 أكرمك الله أستاذ جلال و إن شاء الله ربنا ييسر الأمور
عبدالله المجرب قام بنشر مايو 21, 2011 قام بنشر مايو 21, 2011 الاستاذ الفاضل ابا عمر عمل ممتاز وجهد رائع تشكر عليه تقبل مروري ابواحمد
عبد الفتاح كيرة قام بنشر مايو 21, 2011 الكاتب قام بنشر مايو 21, 2011 الأخ أبا أحمد بارك الله فيك سعدت بمرورك هنا و ثنائك الطيب شكرا لك
منير لبيب قام بنشر أغسطس 19, 2011 قام بنشر أغسطس 19, 2011 اخوتي شكرا جزيلا علي المواضبع الجميلة الهامة ففعلا موضوع رأس وتزيل الصفحة موضوع شيق جدا وخصوصا انني اعمل علي شيتات في مدرستي من اولي ب الي 1 ث اي عشرة شيتات وكل شيت محتاج تزيل ورأس الصفحة ولكن لي سؤال لو سمح الاخوة لو كان بالمستطاع هو انني اريد التزيل كما الاتي يمين الصفحة كتبه راجع الكتابة املاه راجع الاملاء وسط الصفحة رئيس الكنترول ناظر المرحلة يسار الصفحة مدير المدارس حاولت في يمين الصفحة لم استطع ويسار الصفحة فيها مدير المدارس تكون اقصي اليسار فهل يوجد حل انشاء الله ان عارف ان فيه جهابذة كبار
يوسف عطا قام بنشر أغسطس 19, 2011 قام بنشر أغسطس 19, 2011 السلام عليكم بناء على رغبة الأخ أبي علاء فى إفراد هذه الموضوع فى موضوع مستقل لأهميته فقد نفذت له رغبته و المشاركات و الحلول تجدونها هنا ويمكن للجميع الإدلاء بمعارفهم طبعا لإثراء الموضوع وفق الله الجميع إبداعاتك يا أخونا الغالى ننحنى لهل إحتراماً جعل الله أعمالكم فى موازين حسناتكم ننتظر منكم المزيد يا معلمنا الغالى
ياسر الحافظ قام بنشر أغسطس 19, 2011 قام بنشر أغسطس 19, 2011 إبداعاتك يا أخونا الغالى ننحنى لهل إحتراماً جعل الله أعمالكم فى موازين حسناتكم ننتظر منكم المزيد يا معلمنا الغالى صدق اخي العزيز يوسف عطا وعبر عما يجول بخاطري شكرا استاذنا الكبير ابو عمر وفقك الله ابو الحارث
عبد الفتاح كيرة قام بنشر أغسطس 19, 2011 الكاتب قام بنشر أغسطس 19, 2011 وفق الله الجميع و بارك الله فيكم كل عام أنتم بخير أخى يوسف أخى ياسر
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.