可以利用workbook的BeforePrint事件实现,例如:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheet1.Cells(1, 1).Value = Sheet1.Cells(1, 1).Value & Chr(10) & "打印时间:" & Now()
End Sub
这段代码是在你执行打印前,在sheet1工作表的A1单元格记录打印时间,不知道你需要记录什么打印数据,可以修改代码实现。
温馨提示:答案为网友推荐,仅供参考