Printing date range in excel2000

[Guest]

Hi all I hope you can help
I have a work sheet in cell A-1 I have a date, what I want to do is print
this sheet at the begining of ech month and have it print one sheet for each
day excluding sunday, so I will end up with 24 or so printed pages with
diffrent days on them.
Thank you for your time

 

[Ron de Bruin]

Try this macro

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

Sub PrintCopies_ActiveSheet()
Dim mr As Integer
mr = Month(Range("a1").Value)
Do While Month(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