如何查找打印區域的最後一行？

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