طباعة الصفوف الثلاثة الأولى المخفية

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

 Not Rows("1:3").Hidden = Rows("1:3").Hidden

 Option Explicit

Sub Export_Print_active_sheet()

Dim Sh As Worksheet, r As Range, F, Y, D, S As String, I As Integer

Set Sh = ActiveSheet

Application.ScreenUpdating = False

On Error Resume Next

    Set r = Sh.Range(Sh.PageSetup.PrintArea)

    F = "D:الارشيف"

    Y = F & "" & Format(Now(), "yyyy-MM") & ""

    D = Y & "" & Format(Now(), "yyyy-MM-DD") & ""

    On Error Resume Next

    MkDir F: MkDir Y: MkDir D

    r.CopyPicture xlScreen, xlPicture

    Sheets.Add(after:=Sheets(Sheets.Count)).Name = "Temp"

' السطر التالي للعداد

    I = 1: S = D & Dir(D): Do While S <> D: I = I + 1: S = D & Dir(): Loop

    With ActiveSheet

        .Shapes.AddChart.Select

        .Shapes("Chart 1").Width = r.Width: .Shapes("Chart 1").Height = r.Height

        With ActiveChart: .Paste

        .Export Filename:=D & "" & I & " " & Sh.Range("D6") & "      " & Format(Now(), "DD-MM-yyyy") & "." & "png", Filtername:="png"

        Sh.PrintOut Copies:=0, Collate:=True, IgnorePrintAreas:=False

        End With

    End With

Application.DisplayAlerts = False

    Sheets("Temp").Delete

    Application.GoTo Sh.Range("D6")

Application.DisplayAlerts = True

End Sub