Как найти последний ряд области печати?

Question

У меня есть область печати, мне нужно найти последнюю строку, которая находится в области печати. Любая помощь приветствуется.

Спасибо, вот моя область печати.

ActiveSheet.PageSetup.PrintArea = "A1:F100" 

Answer 1

Вы можете установить диапазон, то просто сосчитать строки в диапазоне:

Sub t() 
Dim printRng As Range, lastRow As Long 

Set printRng = Range("A1:F100") 
ActiveSheet.PageSetup.PrintArea = printRng 
lastRow = printRng.Row + printRng.Rows.Count - 1 
Debug.Print "Last row of print area is: " & lastRow 
End Sub 

Answer 2

вы можете использовать эту функцию:

Function PrintAreaLastRow() As Long 
    With Range(ActiveSheet.PageSetup.PrintArea) 
     PrintAreaLastRow = .Rows(.Rows.count).row 
    End With 
End Function