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