السلام عليكم و رحمة الله وبركاته
Sub ãÚÇíäÉ()
Application.ScreenUpdating = False
Range("a3:a100").AutoFilter Field:=1, Criteria1:="<>"
ActiveSheet.PageSetup.PrintArea = "A3:e100"
ActiveWindow.SelectedSheets.PrintPreview
Application.ScreenUpdating = True
End Sub
ان شاء الله يظبط
آمل اخباري بالنتيجة