Try this one

Enter the first day in A1 before you run the macro
If it is working correct change PrintPreview to PrintOut

This example will not print the sunday's

Sub PrintCopies_ActiveSheet()
Dim yr As Integer
yr = Year(Range("a1").Value)
Do While Year(Range("a1").Value) = yr
If Application.WorksheetFunction. _
Weekday(Range("a1").Value) < 1 Then
ActiveSheet.PrintPreview
End If
Range("a1").Value = Range("a1").Value + 1
Loop
End Sub




--
Regards Ron de Bruin
http://www.rondebruin.nl


"Megan" wrote in message ...
I have a spreadsheet in excell that I want to print with todays date on it as
a header and then some how be able to print one for each day for the rest of
the year. I dont want to have to print it each day, or make a copy of it and
change the date everyday. I want to be able to print the whole thing today
with just this one copy that I have in excell. Please help.