Print a sheet for everday of the year
 

I need to print a sheet in Excel for every day of the year.
How can I add the date automatically and print the sheet?
Thanks, Jeff

Print a sheet for everday of the year
 

Hi Jeff

Enter the first day of the year in A1 and run this macro to print
Note it not print sunday

Change PrintPreview to PrintOut if it is working

Sub PrintCopies_ActiveSheet()
'this example not print sunday
Dim mr As Integer
mr = Year(Range("a1").Value)
Do While Year(Range("a1").Value) = mr
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


"Jeff H." <Jeff wrote in message ...
I need to print a sheet in Excel for every day of the year.
How can I add the date automatically and print the sheet?
Thanks, Jeff