اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

السلام عليكم

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

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

برنامج تسيير الارشيف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
رابط هذا التعليق
شارك

  • 2 weeks later...

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

تم تعديل بواسطه زاكي بوشلاغم
رابط هذا التعليق
شارك

السلام عليكم

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

بارك الله فيك

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

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

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

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

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

 

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

 

كود لاخفاء الصفوف الفارغة عند الطباعة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
تم تعديل بواسطه حمادة عمر
رابط هذا التعليق
شارك

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information