最初と最後のページだけを印刷するマクロ

Excelシートを印刷するときに、サンプルとして最初と最後のページだけを印刷したいときがあります。

マクロでは、「ActiveSheet.PrintOut 開始ページ, 終了ページ」でアクティブシートを印刷できます。
最初のページを印刷するには「1から1まで」と指定します。
最後のページは古い形式のマクロを使い「Application.ExecuteExcel4Macro(“GET.DOCUMENT(50)”)」で取得できます。

Sub 最初と最後のページだけを印刷()
    '最初のページ
    ActiveSheet.PrintOut 1, 1
    '最後のページ
    lastpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
    ActiveSheet.PrintOut lastpage, lastpage
End Sub

コメント

タイトルとURLをコピーしました