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

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