☰

重新打印同一页，但日期不同

tag-icon • tag-icon microsoft-excel printing
重新打印同一页，但日期不同

我有一份需要每天填写的 1 页日常任务表。我想通过动态更改日期字段并重新打印整个范围内的每个日期来打印整整一个月的供应量

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

现在，我只是将整个页面向下拖动 31 次并单独打印每个日期，但感觉不对。

有什么方法可以做到这一点，也许使用宏，标题或邮件合并？

在这里确实没有找到任何答案：

答案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

相关内容