مطلوب كود لطباعة الصفحات الموجود بها بيانات فقط ولا يقوم بطباعة الصفحات الفارغة

[محمد_عبد_الوهاب]

لسلام عليكم

لدي ورقة اكسيل ( شيت ) به عدد 10 صفحات يوجد ببعضها بيانات والبعض الاخر لا يوجد به بيانات

مطلوب كود لطباعة الصفحات الموجود بها بيانات فقط ولا يقوم بطباعة الصفحات الفارغة وذلك عن طريق زر الطباعة الموجود في بداية الورقة

فمثلا كالتالي :

صفحة 1 .. بها بيانات

صفحة 2.. بها بيانات

صفحة 3.. ليس بها بيانات

صفحة 4.. ليس بها بيانات

صفحة 5.. بها بيانات

صفحة 6.. ليس بها بيانات

.... الخ

شكراااااا

طباعة.rar

[عبدالله المجرب]

السلام عليكم

جرب المرفق

طباعة.rar

[أبو أنس حاجب]

السلام عليكم ورحمة الله وبركاته

أستاذي وسيدي الفاضل أبا أحمد حفظك الله

أبداع منقطع النظير

بارك الله بك وفيك وجزاك خير الجزاء في الدنيا والآخرة.

أبو أنس

[محمد_عبد_الوهاب]

الاستاذ / القدير / عبد الله - ابو احمد

السلام عليكم

جزاك الله كل الخير علي مساعدتك .. امثالنا ابتغاء مرضاة الله ... زادك الله من علمه

ولكن لي سؤال هل يمكنني اضافة صفحات اخري اسفل الصفحات الموجودة دون التعديل في الكود ام لا ؟

تم تعديل يونيو 24, 2012 بواسطه m_abdelwahabomar

[عبدالله المجرب]

الاستاذ / القدير / عبد الله - ابو احمد

السلام عليكم

جزاك الله كل الخير علي مساعدتك .. امثالنا ابتغاء مرضاة الله ... زادك الله من علمه

ولكن لي سؤال هل يمكنني اضافة صفحات اخري اسفل الصفحات الموجودة دون التعديل في الكود ام لا ؟

لعمل هذا

يجب ان يكون عدد صفوف كل ورقة 44 سطر ابتداء من السطر (كشف عن يوم )

والتعديل في الكود بيكون هنا

For i = 4 To [A10000].End(xlUp).Row Step 44

بدل عن

For i = 4 To 400 Step 44

[محمد_عبد_الوهاب]

الاستاذ الفاضل / عبد الله

الكود رائع وجميل وتم تجربته ولكنه يبدأ من السطر رقم 4 في كل صفحة وانا اريده من بداية الصفحة ( من اول سطر )

واريد رأيك حيث قمت بعمل كود بناءاً علي شرط في خليه ما مثلاً ( i8 ) ليكون بها معادلة if تخرج ناتج false , true واذا كان الناتج true يقوم بطباعة الصفحة

والكود هو وهو يعمل ولكني غير مطمئن له فما رأيك فيه

واريد ايضا التعديل علي كود سيادتكم

الكود :

Sub طباعة()

If Sheets("1").[i8] = True Then

    Sheets("1").PageSetup.PrintArea = "A1:h42"

    Sheets("1").PrintOut

End If

If Sheets("1").[i52] = True Then

    Sheets("1").PageSetup.PrintArea = "A44:h86"

    Sheets("1").PrintOut

End If

End Sub

وقمت بعمل ذلك بالنسبة للعشر صفحات في نفس الكود ولكن هذا اختصار لصفحتين فقط