Print a sheet for everday of the year

J

Jeff H.

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
 
R

Ron de Bruin

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
 
Top