印刷実行前に総ページ数を取得(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
関連記事
-
-
印刷のタイトル行、タイトル列を設定(PrintTitleRows,PrintTitleColumns)
PageSetup.PrintTitleRows プロパティ PageSetup …
-
-
ファイル保存の既定の形式を取得・設定(DefaultSaveFormat プロパティ)
DefaultSaveFormat プロパティ DefaultSaveForma …
-
-
計算精度を設定する(PrecisionAsDisplayed プロパティ)
PrecisionAsDisplayed プロパティ PrecisionAsDi …
-
-
印刷設定を高速化(PrintCommunication プロパティ)
PrintCommunication プロパティ PrintCommunicat …
-
-
ウィンドウの分割(Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ)
ウィンドウの分割と解除 ウィンドウ(ワークシート画面)を分割するには、Split …
-
-
ステータスバーにメッセージを表示(StatusBar プロパティ)
StatusBar プロパティ StatusBar プロパティで、ステータスバー …
-
-
印刷の倍率(拡大/縮小)(PageSetup.Zoom プロパティ)
PageSetup.Zoom プロパティ PageSetup.Zoom プロパテ …
-
-
スクロール(LargeScroll メソッド、Smallscroll メソッド)
ワークシートをスクロールする ワークシートをスクロールするには、LargeScr …
-
-
白黒印刷(PageSetup.BlackAndWhite プロパティ)
PageSetup.BlackAndWhite プロパティ PageSetup. …
-
-
シートを保護・保護したシートを解除する(Protect メソッド・Unprotect メソッド)
Protect メソッド・Unprotect メソッド Protect メソッド …

