印刷領域の最後の行の検索方法は？

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