print area with dynamic range when the database are with subtotals

hello,

I'm trying to configure print area with dynamic range when the database are with Subtotals feature (not a single formula).

I'm using this code and the problem is that some rows in the bottom are missing.

I think it's got to do with the subtotals, i tried to do this without subtotals and every thing worked great. the more subtotals i have the more missing rows i get.

     Dim LastRowS As Long
            With ActiveSheet
            LastRowS = .Cells(.Rows.Count, 2).End(xlUp).Row
            .PageSetup.PrintArea = "A1:K" & LastRow + 3
            End With

thanks in advance,

sari

Got it!

     Dim LastRowS As Long
            With ActiveSheet
            LastRowS = ActiveSheet.Range("A1").End(xlDown).Row
            .PageSetup.PrintArea = "A1:K" & LastRowS + 2
          
            End With