- 日時： 2007/08/20 18:53
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[エクセル][][] *
* キーワード：行数,印刷時,,,, *
***********************************************************************************
元質問：Excel：印刷時の１ページの行数 - みちぃ 2004/11/11-15:00 No.870
Excel2002です（VBA）
印刷時（プレビュー時）に、設定するプリンタによって、１ページに対する行数が変わります。
１ページ当りの行数を取得するためには、どうしたらよろしいでしょうか？
よろしくお願いいたします。
-----------------------------------------------------------------------------------
Re: Excel：印刷時の１ページの行数 - 花ちゃん 2004/11/11-17:17 No.871
-----------------------------------------------------------------------------------
何の為に行数の取得が必要かは知りませんが、改ページ位置を取得すればいいのでは
他にいい方法があるかは知りませんが、VBAなら一度下記を試して見て下さい。
（印刷範囲が設定されていれば違う方法でも取得できます）
Private Sub CommandButton1_Click()
Worksheets(1).HPageBreaks(1).Location.Select
MsgBox ActiveCell.Address
End Sub
結果よりマイナス１行して下さい。
上記は、VBA のコードなのでVBから使用する場合は、オブジェクト名を指定して下さい。
|
印刷時の１ページの行数を取得する（VB6.0 応用編）