Printing date range in excel2000
 

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

Printing date range in excel2000
 

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


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


wrote in message ...
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