تعديل كود اخفاء الأسطر الفارغة

[أبو عبد الملك السوفي]

السلام عليكم

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

و المطلوب هو أن يحذف الاسطر الفارغة لكل الصفحات ويطبع البقية في الصفحة الأولى

برنامج تسيير الارشيف3.rar

[طارق محمود]

السلام عليكم

تفضل أخي الكود بعد التعديل

 

Sub MyPrint()
  Application.ScreenUpdating = False
  Application.PrintCommunication = False


  With Sheets("جدول دفع الإستشارة (3)")
    .ResetAllPageBreaks
    .PageSetup.FitToPagesWide = 1


    With .UsedRange
      For i = 1 To .Rows.Count
        If .Cells(i, 1).Value = "" Then
          .Cells(i, 1).EntireRow.Hidden = True
        End If
      Next i
    End With
    .PrintOut
    .Rows.Hidden = False
  End With
  
  Application.PrintCommunication = True
  Application.ScreenUpdating = True
End Sub

[أبو عبد الملك السوفي]

السلام عليكم

جزاك الله كل خير أستاذنا الحبيب وبارك لنا في علمك وعملك

[زاكي بوشلاغم]

اخي  ممكن  كود  طباعة   حيث  كل  سطر  فيه  قيمة  صفر  او  الرمز -  لا يطبعه    كل  سطر  فيه  قيمة  صفر  لا  يطبع

تم تعديل سبتمبر 27, 2013 بواسطه زاكي بوشلاغم

[زاكي بوشلاغم]

 ممكن  كود  اخفاء  اسطر  التي  تكون  فيها  القيمة  صفر  او  الرمز(  -  دج) او الرمز(-)

[حمادة عمر]

السلام عليكم

الاخ الكريم / زاكي بوشلاغم

بارك الله فيك

اولا اخي الكريم ... ليمكن الاجابة علي طلباتك بسهولة يجب عليك فتح موضوع جديد بطلبك

مع ارفاق ملف به مثال لما تريده للعمل عليه

حيث وجدت لك اكثر من سؤال في اكثر من موضوع مما يجعل موضوعك وطلبك غير ظاهر للجميع ليمكن الاجابة عليه

برجاء ارفاق ملف مع كل طلب بمثال للشكل الموجود لديك

جزاك الله خيرا

 

يمكنك استخدام هذا التعديل البسيط في كود الاستاذ طارق ... كما يلي

 

كود لاخفاء الصفوف الفارغة عند الطباعة1.rar

Sub MyPrint()
  Application.ScreenUpdating = False
  With Sheets("AAA")
    .ResetAllPageBreaks
    .PageSetup.FitToPagesWide = 1
    With .UsedRange
      For i = 1 To .Rows.Count
        If .Cells(i, 1).Value = 0 Or .Cells(i, 1).Value = "-" Or .Cells(i, 1).Value = "دج" Then
          .Cells(i, 1).EntireRow.Hidden = True
        End If
      Next i
    End With
    .PrintOut
    .Rows.Hidden = False
  End With
  Application.ScreenUpdating = True
End Sub

تم تعديل سبتمبر 27, 2013 بواسطه حمادة عمر

[حمادة عمر]

ملفات مرفقة

 

كود لاخفاء الصفوف الفارغة عند الطباعة1.rar

[زاكي بوشلاغم]

عند  الطباعة  كل   خلية  تظهر  فيها  قيمة   الصفر او  الرمز(-) او  الرمز(-دج) لايظهر  السطر  كله  في  الطباعة

طاولة مشتركة.rar

[زاكي بوشلاغم]

ممكن  الرد

[الـعيدروس]

راجع موضوعك المشاركة الاخيرة

 

http://www.officena....showtopic=49187