印刷実行前に総ページ数を取得（ExecuteExcel4Macro メソッド）
印刷の総ページ数を取得（ExecuteExcel4Macro メソッド）
Excel 4.0 には、印刷実行前に、印刷の総ページ数を取得することができるマクロがあり、ExecuteExcel4Macro メソッド で、VBA から呼び出して使用することができます。
【書式】
＜取得＞
object.ExecuteExcel4Macro ( “GET.DOCUMENT( 50 [, “”sheetname“” ] )” )
引数・戻り値
- object ・・・ 対象となる Application オブジェクト を指定します。
- sheetname ・・・ シート名を指定します。省略した場合は、現在アクティブなシートが対象となります。
印刷総ページ数を取得する例
サンプルVBAソース 1
|
1 2 3 4 5 6 7 8 |
Sub Sample1_PrintTotalPage() 'アクティブなシートを印刷した場合の総ページ数 MsgBox Application.ExecuteExcel4Macro("GET.DOCUMENT(50)") End Sub |
実行結果 1
サンプルVBAソース 2
|
1 2 3 4 5 6 7 8 |
Sub Sample2_PrintTotalPage() '「Sheet1」を印刷した場合の総ページ数 MsgBox Application.ExecuteExcel4Macro("GET.DOCUMENT(50, ""Sheet1"")") End Sub |
実行結果 2
関連記事
-
-
ブックのプロパティ（BuiltinDocumentProperties プロパティ）
BuiltinDocumentProperties プロパティ ブックのプロパテ …
-
-
印刷設定（フッターに画像を指定）LeftFooterPicture,CenterFooterPicture,RightFooterPicture
フッターに画像を表示するには LeftFooterPicture プロパティ、C …
-
-
シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ）
シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ） …
-
-
印刷位置を中央に設定（CenterHorizontally, CenterVertically）
PageSetup.CenterHorizontally プロパティ PageS …
-
-
ウィンドウ枠の固定（FreezePanes プロパティ、SplitColumn プロパティ,SplitRow プロパティ）
ウィンドウ枠の固定と解除 ウィンドウ枠を固定するには FreezePanes プ …
-
-
数式バーの設定（DisplayFormulaBar, FormulaBarHeight）
数式バーの設定 数式バーの表示・非表示の設定を行うには、DisplayFormu …
-
-
印刷設定（ヘッダー／フッター）書式コード・VBAコード
印刷設定（ヘッダー／フッター）書式コード・VBAコード ヘッダーおよびフッター（ …
-
-
ウィンドウを拡大・縮小（Zoom プロパティ）
ウィンドウを拡大・縮小（Zoom プロパティ） ウィンドウの表示サイズをパーセン …
-
-
ウィンドウの位置を入れ替える（ActivatePrevious メソッド、ActivateNext メソッド）
ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …
-
-
印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）
PageSetup.PrintArea プロパティ 印刷範囲を設定するには、Pa …