كود اخفاء الصفوف قبل الطباعة فقط

[عبد الله السعيد]

السلام عليكم

لدي ورقة عمل  بها  31 جدول  وهما نفس الجداول ولكن كل جدول خاص بيوم من الشهر ( 1 2 3 4 .... 31 ) وكل يوم لدي 22 عميل وقابلين للزيادة
اخد منهم مبالغ للمنتجات الخاصة لدي وهما 7 منتجات وقابلين ايضا للزيادة

في نهاية اليوم او في اي وقت احيانا احتاج الى  طباعة الجداول منسقة ورى بعضها البعض بحيث كل ورقة تأخد يوم بمفرده ، واريد اكواد
بحيث اخفي اي عميل ( صف ) لم يحصل منه اي مبالغ  اي بمعني اي صف مجموعه صفر  يتم اخفاءة فقط ولو اردت اظهار الكل مرة اخرى اظهره بعد ان اطبع

مرفق مثال  ل 5 جداول فقط  Zeroo.xlsx

[محمد يوسف ابو يوسف]

وعليكم السلام

اخي  عبد الله السعيد

 

تفضل طلبك Zeroo.xlsm

[عبد الله السعيد]

تسلم اخي على الرد والاهتمام  والحل

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

    بارك الله فيك

 

[محمد يوسف ابو يوسف]

اخي  عبد الله السعيد

تفضل Zeroo.xlsm

 

ان شاء الله يكون المطلوب

[عبد الله السعيد]

سلمت يداك اخي الفاضل

انا اريد قبل ان يرحل الى الطباعة مباشرة  ، كودين متواجدين امامي  كود اخفاء  وكود اظهار   للمراجعة وتعديل بعض الامور  ومن ثم كود الطباعة

 

بارك الله فيك

[محمد يوسف ابو يوسف]

اخي  عبد الله السعيد

بألفعل  موجود داخل الملف المرسل سابقاً   ... تفضل  مع الشرح

Sub طباعه_دون_فراغ()
      Application.ScreenUpdating = False
    Range("P1:P200").AutoFilter Field:=1, Criteria1:="<>" 'هنا اخفاء قبل التنفيز
    ActiveSheet.PageSetup.PrintArea = "a1:L200"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Range("P1:P200").AutoFilter 'هنا  اظهار بعد التنفيز
  Application.ScreenUpdating = True
End Sub

 

 

 

[عبد الله السعيد]

سلمت يداك

انا اطبق بالفعل الكود يعطيني على طول   طباعه
 

[محمد يوسف ابو يوسف]

اخي  انا مش فاهم

هل تريد معاينه قبل الطباعه  ؟

[عبد الله السعيد]

اي نعم استاذي

 

[محمد يوسف ابو يوسف]

اخي  عبد الله السعيد            - تفضل

تم اضافة مسج يأسلك هل تريد الطباعه بعد المعاينة ام لا

Sub طباعه_دون_فراغ()
                
           ActiveWindow.SelectedSheets.PrintPreview 'معاينة قبل الطباعة '
    Reply = MsgBox("                              هل تريد " & Chr(10) & "               طباعة الفاتورة ", vbYesNo) 'هنا هل تريد طبع النسخ ام لا
     If Reply <> 6 Then Exit Sub 'هنا هل تريد طبع النسخ ام لا
      Application.ScreenUpdating = False
    Range("P1:P200").AutoFilter Field:=1, Criteria1:="<>" 'هنا اخفاء قبل التنفيز
    ActiveSheet.PageSetup.PrintArea = "a1:L200"
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Range("P1:P200").AutoFilter 'هنا  اظهار بعد التنفيز
  Application.ScreenUpdating = True
End Sub

الملف Zeroo.xlsm

اظن هذا هو المطلوب

[عبد الله السعيد]

سلمت يداك

اشكرك اخي الغالي على تعبك ومجهودك   وحتى يكتمل موضوعك بنجاح لو سمحت

مازالت نفس المشكلة ، انا اريد اخفاء الصفوف الفارغة اولا قبل الطباعة تماما او اي شيء يخص الطباعة تماما 

الملف اعلاه  اذا رفضت الطباعه لا يتم اخفاء الصفوف الفارغة 

انا اريد اولا  زر اخفاء وظهور الصفوف الفارغة  وزر اخر للطباعه بحيث كل جدول يكون في صفحة بمفرده

اتمنى ان يكون قد وصلك ما اردته بوضوح
 

[محمد يوسف ابو يوسف]

اخي  عبد الله السعيد

 الكود المرسل يألفعل يقوم بالاتي

يتم اخفاء اي عمود  فارغ

اما اذا ارت اخفاء جميع الخلاية الفارغه : يجب عليك توضيح ليه اكثر

؟: اذا ارت اخفاء جميع الخلاية الفارغة :يبقي سوف اقوم  بالاتي

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

في هذة الحالة  يجب الكتابة  تكون علي اتجاه واحد:

سارفق لك ملف توضيحي

 

 

[محمد يوسف ابو يوسف]

تفضل  هكذا

22 ساعات مضت, محمد يوسف ابو يوسف said:

تفضل  هكذا

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

[عبد الله السعيد]

اخي الحبيب الكود بالفعل يقوم بما تقول

ولكن يجبرني على الدخول على الطباعة وانا لا اريد الطباعه او معاينة قبل الطباعة   ،،  انا اريده كما هو بس بدون الدخول على الطباعة تماااااااااما

جدول به صفوف قيمتها  صفر  يتم اخفائها  بزر    واظهار بزر 

 

[محمد يوسف ابو يوسف]

اخي  عبد الله السعيد

كان يجب عليك التوضيح من قبل  لان الوقت محدود لدي - اسأل الله ان يعين الجميع علي عمله

علي العموم تفضل  ما طلبت

ملفك Zeroo.xlsm

[عبد الله السعيد]

اخي بارك الله فيك اولا واخيرا

انا وضحت المطلوب اكثر من مرة بالفعل  ، ربما لم اعبر جيدا بعتذر لك جداجدا

وانا اريد الاجابتين مع بعض  الاظهار والإخفاء والطباعة

بارك الله فيك