พิมพ์หน้าเดิมอีกครั้งพร้อมวันที่แตกต่างกัน

ฉันมีแบบฟอร์มรายวันแบบ 1 หน้าซึ่งต้องกรอกทุกวัน ฉันต้องการพิมพ์การจัดหาตลอดทั้งเดือนโดยการเปลี่ยนฟิลด์วันที่แบบไดนามิกและพิมพ์ซ้ำทุกวันในช่วงทั้งหมด

  |  A           |   B        |
--|--------------|------------|
1 | Date         | 10/01/2018 |
2 | Clean Dishes | __________ |
3 | Clean Litter | __________ |
4 | Clean Floor  | __________ |

ตอนนี้ฉันแค่ลากทั้งหน้าลง 31 ครั้งและพิมพ์ทีละวัน แต่รู้สึกผิด

วิธีใดในการทำเช่นนี้อาจมีมาโครส่วนหัวหรือจดหมายเวียน

ไม่พบคำตอบจริงๆที่นี่:

• วันที่เพิ่มขึ้นสำหรับการพิมพ์แต่ละหน้า
• พิมพ์หลายหน้าด้วยวันที่น้อยไปหามาก?
• วิธีพิมพ์หลายสำเนาด้วยหมายเลขหน้าต่อเนื่อง

วิธีแก้ปัญหามาโครด่วน แก้ไขวันที่เริ่มต้นและสิ้นสุดในรหัส

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