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. |
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. |
All times are GMT +1. The time now is 11:56 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com