印刷実行前に総ページ数を取得（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
関連記事
-
-
シート見出しの色を設定（Tab プロパティ）
シート見出しの色を設定 Tab オブジェクトの Color プロパティ、Colo …
-
-
ブックを参照（Workbooks プロパティ,Windows プロパティ）
アクティブなワークブックを参照 現在使用中のワークブック、複数ある場合は一番手前 …
-
-
ブックの表示を変更（View プロパティ）
ブックの表示を変更（View プロパティ） View プロパティ で、ブックの表 …
-
-
印刷時の改ページ設定（Add,ResetAllPageBreaks）
改ページの追加と解除 印刷時に改ページを指定するには、HPageBreaks コ …
-
-
印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）
PageSetup.Orientation プロパティ PageSetup.Or …
-
-
ユーザー設定のビュー（CustomView オブジェクト）
ユーザー設定のビュー CustomView オブジェクトは、登録されている各ビュ …
-
-
保存時にバックアップファイルが作成されるかどうかを確認（CreateBackup プロパティ）
バックアップファイルが作成されるかどうかを確認 CreateBackup プロパ …
-
-
0 を表示するかどうかを設定（DisplayZeros プロパティ）
DisplayZeros プロパティ DisplayZeros プロパティに、T …
-
-
ブックのコピーを保存（SaveCopyAs メソッド）
SaveCopyAs メソッド SaveCopyAs メソッド は、現在開いてい …
-
-
計算精度を設定する（PrecisionAsDisplayed プロパティ）
PrecisionAsDisplayed プロパティ PrecisionAsDi …