如何找到打印区域的最后一行

Question

我有一个打印区域，我需要找到打印区域中的最后一行。任何帮助都将受到赞赏。

谢谢，这是我的设置打印区域。

ActiveSheet.PageSetup.PrintArea = "A1:F100"

Answer 1

您可以使用此功能：

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

Answer 2

您可以设置一个范围，然后只计算范围内的行：

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