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