ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

印刷実行前に総ページ数を取得(ExecuteExcel4Macro メソッド)

   

印刷の総ページ数を取得(ExecuteExcel4Macro メソッド)

Excel 4.0 には、印刷実行前に、印刷の総ページ数を取得することができるマクロがあり、ExecuteExcel4Macro メソッド で、VBA から呼び出して使用することができます。


【書式】

<取得>
object.ExecuteExcel4Macro ( “GET.DOCUMENT( 50 [, “”sheetname“” ] )” )


引数・戻り値

  • object  ・・・  対象となる Application オブジェクト を指定します。
  • sheetname  ・・・  シート名を指定します。省略した場合は、現在アクティブなシートが対象となります。


印刷総ページ数を取得する例

サンプルVBAソース 1


実行結果 1

アクティブシートの印刷総ページ数を取得



サンプルVBAソース 2


実行結果 2

指定したシートの印刷総ページ数を取得



 - ブック・シートの操作 , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください

  関連記事

行列番号を含めて印刷(PageSetup.PrintHeadings プロパティ)

PageSetup.PrintHeadings プロパティ PageSetup. …

ブックのプロパティ(BuiltinDocumentProperties プロパティ)

BuiltinDocumentProperties プロパティ ブックのプロパテ …

数式を表示(DisplayFormulas プロパティ)

数式を表示(DisplayFormulas プロパティ) セルに数式が入力されて …

印刷 タイトル行・列 設定の例
印刷のタイトル行、タイトル列を設定(PrintTitleRows,PrintTitleColumns)

PageSetup.PrintTitleRows プロパティ PageSetup …

DisplayHeadings プロパティ
行列の見出しの表示・非表示(DisplayHeadings プロパティ)

DisplayHeadings プロパティ 行と列の見出しの表示・非表示を設定お …

SaveCopyAs メソッド
ブックのコピーを保存(SaveCopyAs メソッド)

SaveCopyAs メソッド SaveCopyAs メソッド は、現在開いてい …

Excel8CompatibilityMode プロパティ
ブックが互換モードで開いているか確認する(Excel8CompatibilityMode プロパティ)

ブックが互換モードで開いているか確認する Excel8Compatibility …

ワークシートの追加・削除(Add メソッド・Delete メソッド)

新しいワークシートを作成 Add メソッドで、新しいワークシートを指定した場所に …

ウィンドウの状態を取得・設定(WindowState プロパティ)

ウィンドウの状態を取得・設定(WindowState プロパティ) Window …

DisplayZeros プロパティ 使用例
0 を表示するかどうかを設定(DisplayZeros プロパティ)

DisplayZeros プロパティ DisplayZeros プロパティに、T …