印刷実行前に総ページ数を取得（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
関連記事
-
-
ワークシートのコピー・移動（Copy メソッド Move メソッド）
Copy メソッド Copy メソッドで、指定した位置にワークシートの複製を作成 …
-
-
セルのコメントを印刷（PageSetup.PrintComments プロパティ）
PageSetup.PrintComments プロパティ PageSetup. …
-
-
画面の上端・左端を設定（ScrollRow プロパティ、ScrollColumn プロパティ）
画面の上端・左端を設定 ScrollRow プロパティで、指定した行を画面上端に …
-
-
印刷設定（ヘッダー・フッターに画像を設定）Graphic オブジェクト
Graphic オブジェクト Graphic オブジェクト は、ヘッダーおよびフ …
-
-
印刷設定（偶数ページのヘッダー・フッターを設定）OddAndEvenPagesHeaderFooter, EvenPage
偶数ページに別のヘッダーおよびフッターを設定 偶数ページのヘッダーおよびフッター …
-
-
シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ）
シート見出しの表示・非表示（DisplayWorkbookTabs プロパティ） …
-
-
ワークシートの数を数える（Count プロパティ）
Count プロパティ 指定したWorksheets コレクションやSheets …
-
-
印刷する用紙の向きを設定（PageSetup.Orientation プロパティ）
PageSetup.Orientation プロパティ PageSetup.Or …
-
-
枠線を含めて印刷（PageSetup.PrintGridlines プロパティ）
PageSetup.PrintGridlines プロパティ PageSetup …
-
-
スクロール（LargeScroll メソッド、Smallscroll メソッド）
ワークシートをスクロールする ワークシートをスクロールするには、LargeScr …