جرب هذا الماكرو
Sub Print_Area()
ActiveSheet.PageSetup.PrintArea = ""
ActiveSheet.Range("a:a").EntireRow.Hidden = False
lr = Cells(Rows.Count, 1).End(3).Row
Set my_rg = Range("a3:a" & lr).SpecialCells(xlCellTypeBlanks)
my_rg.EntireRow.Hidden = True
ActiveSheet.PageSetup.PrintArea = "$A$3:$C$" & lr
End Sub