Перепечатайте одну и ту же страницу с разными датами

Question

У меня есть ежедневная форма задания на 1 страницу, которую нужно заполнять каждый день. Я хотел бы распечатать весь месячный запас, динамически изменяя поле даты и перепечатывая каждую дату во всем диапазоне

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

Прямо сейчас я просто перетаскиваю всю страницу вниз 31 раз и печатаю каждую дату отдельно, но это неправильно.

Есть ли способ сделать это, может быть, с помощью макросов, заголовков или слияния?

Не нашел ответов здесь:

• Дата увеличения при печати каждой страницы
• Печать нескольких страниц с возрастающими датами?
• Как напечатать несколько копий с порядковыми номерами страниц?

Answer 1

Быстрое макро решение. Измените даты начала и окончания в коде.

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