第1个回答 推荐于2016-05-26
打开文件后按ALT+F11
双击THISWORKBOOK添加下面的代码
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Sheets("sheet2").[A65536].End(xlUp).Offset(1, 0) = Now 'sheet2可以换成任何你用来记录打印记录的工作表名,各记录从A2开始依次向下排列
ThisWorkbook.Save '保存工作表,该操作会导致对文件所做的任何修改无法恢复,请酌情使用。
End Sub
然后最重要的1点是要让你的宏在打开文件时自动启用。
方法就是在vba编辑器中给vba工程添加一个“数字签名”
添加后第一次打开文件时选择信任该签名,以后再打开文件就不会有宏提示了。
关于数字签名,请搜索“vba 数字签名”教程。本回答被网友采纳