印刷範囲の行数・列数を取得する方法

【目的】
VBAでExcelの印刷範囲の行数・列数を取得します。



【前準備】
１．以下の様なExcelファイルを用意。

【手順】
１．「標準モジュールの作成方法」の手順で、「MainModule」という標準モジュールを作成。
２．「MainModule」を以下の様に入力。

Option Explicit

Sub main()
    Dim rowCount As Integer
    Dim colCount As Integer
    
    Application.Goto Sheets("Sheet1").Range(Sheets("Sheet1").PageSetup.PrintArea)
    rowCount = Selection.Rows.Count
    colCount = Selection.Columns.Count
    
    Debug.Print ("行数=" & rowCount)
    Debug.Print ("列数=" & colCount)
End Sub

３．「関数を実行する方法」の手順で、main関数を実行。
４．イミディエイトウィンドウが表示されない場合は、「イミディエイトウィンドウの表示方法」でイミディエイトウィンドウを表示させます。
５．以下の様に、イミディエイトウィンドウに以下の様に、出力されれば成功です。

以上です。