السلام عليكم و رحمة الله وبركاته 
 
	هذا الكود يقوم  بتلوين سطر بمجرد الوقف عليه المشكلة عندا طباعة يتم اظهار الون في الورقة هل من حل لاخفاء اللون في طباعة
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Sh.Cells.Interior.ColorIndex = xlNone
    If Target.Cells.Count = 1 Then
        With Rows(Target.Row).Interior
            .ColorIndex = 19
            .Pattern = xlSolid
        End With
    End If
End Sub
	 
 
	Row.zip