印刷実行前に総ページ数を取得（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
関連記事
-
-
印刷・印刷プレビュー（PrintOut メソッド、PrintPreview メソッド）
PrintOut メソッド 印刷するには、PrintOut メソッド を使用しま …
-
-
ステータスバーにメッセージを表示（StatusBar プロパティ）
StatusBar プロパティ StatusBar プロパティで、ステータスバー …
-
-
印刷範囲の設定・解除（PageSetup.PrintArea プロパティ）
PageSetup.PrintArea プロパティ 印刷範囲を設定するには、Pa …
-
-
ページ数に合わせて印刷（FitToPagesTall, FitToPagesWide）
PageSetup.FitToPagesTall プロパティ PageSetup …
-
-
ブックのファイル形式を調べる（FileFormat プロパティ）
ブックのファイル形式を調べる（FileFormat プロパティ） 指定したブック …
-
-
イベントの発生・無効をコントロール（EnableEvents プロパティ）
EnableEvents プロパティ EnableEvents プロパティに T …
-
-
白黒印刷（PageSetup.BlackAndWhite プロパティ）
PageSetup.BlackAndWhite プロパティ PageSetup. …
-
-
簡易印刷（PageSetup.Draft プロパティ）
PageSetup.Draft プロパティ PageSetup.Draft プロ …
-
-
ブックの表示を変更（View プロパティ）
ブックの表示を変更（View プロパティ） View プロパティ で、ブックの表 …
-
-
指定された情報をブックから削除（RemoveDocumentInformation メソッド）
RemoveDocumentInformation メソッド 指定された種類の情 …