如何用Excel VBA实现按月份自动更新日期并批量打印文档？

你的原代码仅能处理当前日期和次日的打印，完全不符合「遍历全年12个月首日并依次打印」的需求，以下是修正后的完整代码：

Private Sub CommandButton1_Click()
    Dim currentYear As Integer
    Dim monthNum As Integer
    Dim firstDayOfMonth As Date
    
    ' 获取当前年份
    currentYear = Year(Date)
    
    ' 循环遍历1到12月
    For monthNum = 1 To 12
        ' 生成当月首日（用DateSerial是最可靠的日期生成方式）
        firstDayOfMonth = DateSerial(currentYear, monthNum, 1)
        ' 格式化日期并写入A2单元格
        Range("A2").Value = Format(firstDayOfMonth, "dd MMMM yy")
        ' 打印当前选中的工作表
        ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
    Next monthNum
End Sub

关键逻辑说明 #

• 用DateSerial(currentYear, monthNum, 1)精准生成每个月的第一天，避免手动计算月份天数的误差
• 通过For...Next循环遍历1到12月，自动完成全年12次打印任务
• 每次循环都会更新A2的日期为对应月份的首日，再执行打印操作

原代码的问题点 #

1. 仅处理了当前日期和次日，没有按「月份首日」的逻辑生成日期
2. 无循环结构，只能执行两次打印，无法覆盖全年12个月

内容的提问来源于stack exchange，提问作者Md101