Re-print same page with different dates
By Sarah Scott •
I have a 1-page daily task form that needs to be filled out every day. I'd like to print off a whole months supply by dynamically changing the date field and re-printing every date in an entire range
| A | B |
--|--------------|------------|
1 | Date | 10/01/2018 |
2 | Clean Dishes | __________ |
3 | Clean Litter | __________ |
4 | Clean Floor | __________ |Right now, I'm just dragging the entire page down 31 times and printing each date individually, but that feels wrong.
Any way to do this, maybe with macros, headers, or mail-merge?
Didn't really find any answers here:
- Increment date on printing each page
- Printing multiple pages with ascending dates?
- How To Print Multiple Copies With Sequence Page Numbers?
1 Answer
Quick macro solution. Edit the start and end dates in the code.
Sub PrintAllDates() Application.ScreenUpdating = False Dim printDate As Date Dim startDate As Date Dim endDate As Date startDate = "10/01/2018" endDate = "10/31/2018" For printDate = startDate To endDate ActiveSheet.Range("B1") = printDate ActiveSheet.PrintOut Next
Application.ScreenUpdating = True
End Sub
