عبد الفتاح كيرة قام بنشر مايو 20, 2011 مشاركة قام بنشر مايو 20, 2011 السلام عليكم بناء على رغبة الأخ أبي علاء فى إفراد هذه الموضوع فى موضوع مستقل لأهميته فقد نفذت له رغبته و المشاركات و الحلول تجدونها هنا ويمكن للجميع الإدلاء بمعارفهم طبعا لإثراء الموضوع وفق الله الجميع رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 20, 2011 مشاركة قام بنشر مايو 20, 2011 السلام عليكم ورحمة الله وبركاته استاذ وعبقري ورمز ساطع من رموز الصرح الجميل اوفسينا جزاك الله كل كل خير وفي ميزان حسناتك انشاء الله الله يوفقك ودمت في حفظ الله ورعايته تلميذك المحب أبو نصار رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 20, 2011 الكاتب مشاركة قام بنشر مايو 20, 2011 عليكم السلام و رحمة الله تعالى و بركاته شكرا لك أخى الفاضل أبا نصار على كلامك الطيب و شعورك الطيب وفقك الله لكل خير و أنا تلميذ فى هذا الصرح الساطع أوفيسنا وفق الله الجميع لمرضاته رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مايو 20, 2011 مشاركة قام بنشر مايو 20, 2011 بارك الله فيك وجعله فى ميزان حسناتك الكلمات لا تكفى امثالك تقبل الله منا ومنك صالح الاعمال رابط هذا التعليق شارك More sharing options...
ابو الآء قام بنشر مايو 20, 2011 مشاركة قام بنشر مايو 20, 2011 بارك الله فيك وجعله فى ميزان حسناتك الكلمات لا تكفى امثالك تقبل الله منا ومنك صالح الاعمال رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 20, 2011 الكاتب مشاركة قام بنشر مايو 20, 2011 جزيل الشكر لك أخى الفاضل وفقك الله لكل خير رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 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 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 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 رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر مايو 21, 2011 مشاركة قام بنشر مايو 21, 2011 السلام عليكم وهالكود لحصر طباعة ورقة لأسم معرف فقط غيره مقيد على المستخدم اليكم الكود Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("ورقة1").PageSetup.PrintArea = ورقة1.Range("PrintArea").Address End Sub رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 21, 2011 الكاتب مشاركة قام بنشر مايو 21, 2011 شكرا جزيلا أستاذ على و استفدت كثيرا من إضافاتك هنا إن شاء الله ينتفع بها الأعضاء جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
جلال محمد قام بنشر مايو 21, 2011 مشاركة قام بنشر مايو 21, 2011 اخى الكريم كيماس جزاك الله كل خير عمل اكثر من رائع وشكرا جزيلا لمن شارك فيه بافكارة ونرجو من الأخ كيماس كما عودتنا شرح للعمل ( وحشنا صوتك والله ) شكرا لكم رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 21, 2011 الكاتب مشاركة قام بنشر مايو 21, 2011 أكرمك الله أستاذ جلال و إن شاء الله ربنا ييسر الأمور رابط هذا التعليق شارك More sharing options...
عبدالله المجرب قام بنشر مايو 21, 2011 مشاركة قام بنشر مايو 21, 2011 الاستاذ الفاضل ابا عمر عمل ممتاز وجهد رائع تشكر عليه تقبل مروري ابواحمد رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر مايو 21, 2011 الكاتب مشاركة قام بنشر مايو 21, 2011 الأخ أبا أحمد بارك الله فيك سعدت بمرورك هنا و ثنائك الطيب شكرا لك رابط هذا التعليق شارك More sharing options...
منير لبيب قام بنشر أغسطس 19, 2011 مشاركة قام بنشر أغسطس 19, 2011 اخوتي شكرا جزيلا علي المواضبع الجميلة الهامة ففعلا موضوع رأس وتزيل الصفحة موضوع شيق جدا وخصوصا انني اعمل علي شيتات في مدرستي من اولي ب الي 1 ث اي عشرة شيتات وكل شيت محتاج تزيل ورأس الصفحة ولكن لي سؤال لو سمح الاخوة لو كان بالمستطاع هو انني اريد التزيل كما الاتي يمين الصفحة كتبه راجع الكتابة املاه راجع الاملاء وسط الصفحة رئيس الكنترول ناظر المرحلة يسار الصفحة مدير المدارس حاولت في يمين الصفحة لم استطع ويسار الصفحة فيها مدير المدارس تكون اقصي اليسار فهل يوجد حل انشاء الله ان عارف ان فيه جهابذة كبار رابط هذا التعليق شارك More sharing options...
يوسف عطا قام بنشر أغسطس 19, 2011 مشاركة قام بنشر أغسطس 19, 2011 السلام عليكم بناء على رغبة الأخ أبي علاء فى إفراد هذه الموضوع فى موضوع مستقل لأهميته فقد نفذت له رغبته و المشاركات و الحلول تجدونها هنا ويمكن للجميع الإدلاء بمعارفهم طبعا لإثراء الموضوع وفق الله الجميع إبداعاتك يا أخونا الغالى ننحنى لهل إحتراماً جعل الله أعمالكم فى موازين حسناتكم ننتظر منكم المزيد يا معلمنا الغالى رابط هذا التعليق شارك More sharing options...
ياسر الحافظ قام بنشر أغسطس 19, 2011 مشاركة قام بنشر أغسطس 19, 2011 إبداعاتك يا أخونا الغالى ننحنى لهل إحتراماً جعل الله أعمالكم فى موازين حسناتكم ننتظر منكم المزيد يا معلمنا الغالى صدق اخي العزيز يوسف عطا وعبر عما يجول بخاطري شكرا استاذنا الكبير ابو عمر وفقك الله ابو الحارث رابط هذا التعليق شارك More sharing options...
عبد الفتاح كيرة قام بنشر أغسطس 19, 2011 الكاتب مشاركة قام بنشر أغسطس 19, 2011 وفق الله الجميع و بارك الله فيكم كل عام أنتم بخير أخى يوسف أخى ياسر رابط هذا التعليق شارك 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.