印刷実行前に総ページ数を取得（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
関連記事
-
-
表示されているセル範囲を取得（VisibleRange プロパティ）
VisibleRange プロパティ 現在表示されているセル範囲（Range オ …
-
-
印刷設定を高速化（PrintCommunication プロパティ）
PrintCommunication プロパティ PrintCommunicat …
-
-
枠線を含めて印刷（PageSetup.PrintGridlines プロパティ）
PageSetup.PrintGridlines プロパティ PageSetup …
-
-
PDF または XPS 形式で出力（ExportAsFixedFormat メソッド）
ExportAsFixedFormat メソッド ブックやシートの内容を PDF …
-
-
ワークシートの非表示・再表示（Visible プロパティ）
ワークシートの表示・非表示 ワークシートを非表示にしたり、非表示にしたワークシー …
-
-
共有ファイルを開いているユーザー情報を取得（UserStatus プロパティ）
共有ファイルを開いているユーザー情報を取得 UserStatus プロパティは、 …
-
-
背景に画像を表示（SetBackgroundPicture メソッド）
SetBackgroundPicture メソッド SetBackgroundP …
-
-
ワークシートをファイルに保存する（SaveAs メソッド）
SaveAs メソッド ワークシートを名前を付けてファイルに保存します。Work …
-
-
印刷位置を中央に設定（CenterHorizontally, CenterVertically）
PageSetup.CenterHorizontally プロパティ PageS …
-
-
ブック作成時のシート数の取得・設定（SheetsInNewWorkbook プロパティ）
SheetsInNewWorkbook プロパティ Excel で新規ブックに自 …