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.PaperSize プロパティ)

PageSetup.PaperSize プロパティ PageSetup.Pape …

ブックを閉じる(Close メソッド)

ブックを閉じる(Close メソッド) Close メソッド で、ブックを閉じる …

印刷位置を中央に設定(CenterHorizontally, CenterVertically)

PageSetup.CenterHorizontally プロパティ PageS …

ウィンドウの位置を入れ替える(ActivatePrevious メソッド、ActivateNext メソッド)

ウィンドウの位置を入れ替える ActivatePrevious メソッド、Act …

印刷設定(偶数ページのヘッダー・フッターを設定)OddAndEvenPagesHeaderFooter, EvenPage

偶数ページに別のヘッダーおよびフッターを設定 偶数ページのヘッダーおよびフッター …

ウィンドウのタイトル(Window.Caption プロパティ)

ウィンドウのタイトル(Caption プロパティ) Windows.Captio …

ウィンドウの分割(Split プロパティ,SplitColumn プロパティ,SplitRow プロパティ)

ウィンドウの分割と解除 ウィンドウ(ワークシート画面)を分割するには、Split …

Window.Caption
並べて比較(CompareSideBySideWith,SyncScrollingSideBySide,BreakSideBySide)

並べて比較(CompareSideBySideWith メソッド) Compar …

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

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

選択されているシートを参照
選択されているシートを参照する(SelectedSheets プロパティ)

SelectedSheets プロパティ 選択されているすべてのシートをあらわす …