طباعة الصفوف الثلاثة الأولى المخفية
Try This Code
Option Explicit
Sub Hide_then_Print()
Dim LR%
With Sheets("موازنة 2020")
LR = .Cells(Rows.Count, 1).End(3).Row
.Rows("1:3").Hidden = False
.PageSetup.PrintArea = _
.Range("A1:F" & LR).Address
.PrintPreview ' <<<==== Change to .PrintOut
.Rows("1:3").Hidden = True
End With
End Sub
