Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel2000:How to link Print Area with a named range | Excel Discussion (Misc queries) | |||
Excel2000:How to link Print Area with a named range | Excel Worksheet Functions | |||
Printing in Excel2000? | Excel Worksheet Functions | |||
Excel2000: Reading Named Range value from VBA | Excel Programming | |||
Excel2000: finding last row of used range | Excel Programming |