Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Print next date
Is there any way to have a field in Excel that will print a successive
date for each page? I have to print sign in sheets for each day of the month with a date on them and I'd rather not type them in 365 times. |
#2
Posted to microsoft.public.excel.worksheet.functions
|
|||
|
|||
Print next date
This will print the activesheet once for each day of the current month, with the date in cell A1
Sub PrintCurrentMonthOut() Dim myDate As Date Dim myDate As Date For myDate = DateSerial(Year(Date), Month(Date), 1) To _ DateSerial(Year(Date), Month(Date) + 1, 0) Cells(1, 1).Value = myDate ActiveSheet.PrintOut Next myDate End Sub And this will print out next month: Sub PrintNextMonthOut() Dim myDate As Date Dim myDate As Date For myDate = DateSerial(Year(Date), Month(Date) +1, 1) To _ DateSerial(Year(Date), Month(Date) + 2, 0) Cells(1, 1).Value = myDate ActiveSheet.PrintOut Next myDate End Sub HTH, Bernie MS Excel MVP "RMTechie" wrote in message ... Is there any way to have a field in Excel that will print a successive date for each page? I have to print sign in sheets for each day of the month with a date on them and I'd rather not type them in 365 times. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Recovering File Info Specifically Save Date or Print Date | Excel Discussion (Misc queries) | |||
Print 12/1/1 in cell (Excel changes it to date or another # | New Users to Excel | |||
print spreadsheets only if date has been typed onto it. | Excel Discussion (Misc queries) | |||
How do I print the last date a worksheet was updated in a footer? | Excel Discussion (Misc queries) | |||
Print Footer with Last Print Date field name | Excel Discussion (Misc queries) |