最初と最後のページだけを印刷するマクロ
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
[ 2013年9月23日 | カテゴリー: Excel | タグ: VBA , 印刷 ]
« iPhone5sとiPhone4S,5の画面サイズを比較 | 「専門家の見方」を検証(2013年9月末) »
コメントを残す