Excel2002です（VBA）

印刷時（プレビュー時）に、設定するプリンタによって、１ページに対する行数が変わります。
１ページ当りの行数を取得するためには、どうしたらよろしいでしょうか？
よろしくお願いいたします。

> Excel2002です（VBA）
>
> 印刷時（プレビュー時）に、設定するプリンタによって、１ページに対する行数が変わります。
> １ページ当りの行数を取得するためには、どうしたらよろしいでしょうか？
> よろしくお願いいたします。

何の為に行数の取得が必要かは知りませんが、改ページ位置を取得すればいいのでは
他にいい方法があるかは知りませんが、VBAなら一度下記を試して見て下さい。

（印刷範囲が設定されていれば違う方法でも取得できます）

Private Sub CommandButton1_Click()
    Worksheets(1).HPageBreaks(1).Location.Select
    MsgBox ActiveCell.Address
End Sub
結果よりマイナス１行して下さい。

ありがとうございました。
これを知りたかったんです。助かりました。