cornman,

Assuming on Sheet1 columns A:D are static, column E is the first "daily"
column and K is the last. So prior to today, your print range was
"A1:K(lastrow)" where lastrow is the last row in your print range. Assuming
you want to delete column E and then have the data that was in column L (now
in K) be added to the print area. You macro would look like this if your
'lastrow' 23

Sub UpdateDaily()
Sheets("Sheet1").Range("E:E").Delete
Sheets("Sheet1").PageSetup.PrintArea = "$A$1:$K$23"
End Sub

Mike


"cornman" wrote:

I would like to have a macro to print a daily activity sheet. The macro
needs to delete the column that is seven days old, then reset the print range
to include an additional day(today). The print range includes several
columns on the left that are printed each time.