How to add days/dates to a worksheet

  • Thread starter Thread starter Andy
  • Start date Start date
A

Andy

I have created a daily schedule on a spreadsheet. I need
to know how to add the day/date to the header so that it
prints out a sheet per day. In other words, I don't want
to have to print each day seperately. Is there a formula
that I can enter that allows me to only have to print one
time, and each copy has the next day on top?
 
Hi Andy
you cann use the workbook_beforeprint event procedure. Put the
following code in your workbook module:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim wkSht As Worksheet
For Each wkSht In ActiveWindow.SelectedSheets
With wkSht.PageSetup
.CenterHeader= format(now,"yyyy-mm-dd")
End With
Next wkSht
End Sub

Frank
 
Back
Top