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
'最初のページ
ActiveSheet.PrintOut 1, 1
'最後のページ
lastpage = Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
ActiveSheet.PrintOut lastpage, lastpage
End Sub
コメント