Reimprimir a mesma página com datas diferentes

Question

Eu tenho um formulário de tarefas diárias de uma página que precisa ser preenchido todos os dias. Eu gostaria de imprimir um suprimento de meses inteiros mudando dinamicamente o campo de data e reimprimindo cada data em um intervalo inteiro

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

Neste momento, estou apenas arrastando a página inteira para baixo 31 vezes e imprimindo cada data individualmente, mas isso parece errado.

Qualquer forma de fazer isso, talvez com macros, cabeçalhos ou mala direta?

Não encontrei nenhuma resposta aqui:

• Incremento da data na impressão de cada página
• Como imprimir várias páginas com datas ascendentes?
• Como imprimir várias cópias com sequência Números de página?

Answer 1

Solução rápida de macros. Edite as datas de início e término no código.

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