印刷実行前に総ページ数を取得（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 オ …
-
-
ワークシートにクリップボードの内容を貼り付ける（Paste メソッド）
Paste メソッド 指定したワークシート上にクリップボードのデータを貼り付けま …
-
-
分割したウィンドウの取得（Panes コレクション,Pane オブジェクト）
分割したウィンドウ 「ウィンドウ枠の固定」や「ウィンドウの分割」での、すべての領 …
-
-
印刷品質を設定（PageSetup.PrintQuality プロパティ）
PageSetup.PrintQuality プロパティ PageSetup.P …
-
-
印刷設定（ヘッダーに文字列を指定）LeftHeader,CenterHeader,RightHeader
PageSetup.LeftHeader プロパティ PageSetup.Lef …
-
-
新しいウィンドウを開く（NewWindow メソッド）
NewWindow メソッド NewWindow メソッドで、任意のブックのコピ …
-
-
ブックが互換モードで開いているか確認する（Excel8CompatibilityMode プロパティ）
ブックが互換モードで開いているか確認する Excel8Compatibility …
-
-
スクロールバーの表示・非表示（DisplayHorizontalScrollBar,DisplayVerticalScrollBar）
スクロールバーの表示・非表示の設定 Windows オブジェクト の Displ …
-
-
ワークシートの追加・削除（Add メソッド・Delete メソッド）
新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …
-
-
WorksheetView オブジェクト
WorkSheetView オブジェクト 行列番号や枠線の表示・非表示の設定など …