Re-Print Same Page with Different Dates
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...
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:
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
Sophia analyzes international trade, startup ecosystems, retail transformation, and supply chain logistics for modern digital publications.
