'アクティブシートのヘッダーの右側に日付を表示します。
Sub 右ヘッダーに日付を表示()
ActiveSheet.PageSetup.RightHeader = "&D"
End Sub
'アクティブシートのヘッダーの右側に日付を和歴で表示します。
'日付は自動では更新されませんので、自動更新が必要であれば、「Workbook_BeforePrint」イベントを用いて自動で印刷前のタイミングで、更新する必要があります。
Sub 右ヘッダーに和歴で日付を表示()
ActiveSheet.PageSetup.RightHeader = Format(Date, "ggge年mm月dd日")
End Sub
'アクティブシートの印刷範囲をA1:E15に設定します。
Sub 印刷範囲を設定する()
ActiveSheet.PageSetup.PrintArea = "A1:E15"
End Sub
'アクティブシートの印刷範囲をA列〜E列で、A列の最終行までに設定します。
Sub A列の最終行までを印刷範囲に設定する()
ActiveSheet.PageSetup.PrintArea = Range("A1:E1").Resize(Range("A" & Rows.Count).End(xlUp).Row).Address
End Sub