印刷実行前に総ページ数を取得（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
関連記事
-
-
ワークブックを保護・保護を解除（Protect メソッド・Unprotect メソッド）
Protect メソッド・Unprotect メソッド Protect メソッド …
-
-
印刷設定（ヘッダーに画像を指定）LeftHeaderPicture, CenterHeaderPicture, RightHeaderPicture
ヘッダーに画像を表示するには LeftHeaderPicture プロパティ、C …
-
-
ウィンドウの分割（Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ）
ウィンドウの分割と解除 ウィンドウ（ワークシート画面）を分割するには、Split …
-
-
印刷設定を高速化（PrintCommunication プロパティ）
PrintCommunication プロパティ PrintCommunicat …
-
-
ワークシートを参照する（Worksheets プロパティ）
Worksheets プロパティ Worksheets プロパティは、Works …
-
-
保存時にバックアップファイルが作成されるかどうかを確認（CreateBackup プロパティ）
バックアップファイルが作成されるかどうかを確認 CreateBackup プロパ …
-
-
ブックのファイル形式を調べる（FileFormat プロパティ）
ブックのファイル形式を調べる（FileFormat プロパティ） 指定したブック …
-
-
ブックの変更が保存されているかを確認する（Saved プロパティ）
ブックの変更が保存されているかを確認する（Saved プロパティ） Saved …
-
-
印刷：余白を設定 TopMargin,BottomMargin,LeftMargin,RightMargin,HeaderMargin,FooterMargin
余白を設定する 余白を設定する単位は、pt（ポイント：約 0.03528 cm） …
-
-
別のブックのマクロを実行（Run メソッド）
別のブックのマクロを実行 別のブックのマクロを実行するには、Run メソッド を …