طباعة بياتات معينة

[elsedik]

المطلوب عند الطباعة اخفاء البيانات باللون الاصفر وطباعة الباقى بالاكواد

مرفق ملف

طباعة .rar

[أبو حنــــين]

استعمل هذه الماكور

Sub Printe()

ActiveSheet.PageSetup.PrintArea = "$A$4:$H$9"

ActiveSheet.PrintPreview

End Sub

[elsedik]

اخى الفاضل جزاك الله خير

ولكن اريد ان يظهر اخر صف الموجود به اجمالى الوارد والمنصرف والرصيد

[أبو حنــــين]

أخي ما هو المعيار المطلوب الذي تكون فيه الخلايا الصفراء لا تظهر في الطباعة

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

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

أخي الفاضل حفظكم الله

إلى أن يتفضل الأستاذ النبيل أبا حنين حفظه الله بحل أحترافي إليك المحاولة التالية بشرط أن تكون الخلية التي أضفت لها كلمة الإجماليات غير فارغة وأيضاً عمود البيان يجب أن يحتوي على بيانات في حالة تم أضافة حركة جديدة ليتم أعتمادها عند الطباعة.

المرفق:

طباعة .rar

أبو أنس

[بن علية حاجي]

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

أخي الكريم، أستسمح إخوتي الكرام لأضيف حلا آخر بكود يقوم بتمديد النطاق المطلوب الذي يتم إخفاؤه قبل الطباعة حسب الشروط المذكورة في الشرح المختصر في الملف، ثم بعد الطباعة يعيد إظهار كل الصفوف التي تم إخفاؤها...

أخوكم بن علية

طباعة1.rar