EXCEL VBA怎样按天记录打印张数

Dim printTimes As Long

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Sheets(1).Cells(Format(Date, "D"), "A") = printTimes
End Sub

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    printTimes = printTimes + 1
End Sub

Private Sub Workbook_Open()
    '用sheet1来存储打印记录
    printTimes = Val(Sheets(1).Cells(Format(Date, "D"), "A"))
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：https://verywind.cn/ee/vy337fjv23v33evey2j.html