创build包含上次打印date和上次保存date的页脚的Excelmacros

我想在Excel 2013中使用vba写一个macros，将最后的保存date和最后的打印date放在页脚中。 当我只打印文档时，最后的打印date以正确的方式改变。 但是，当我保存文档时，我的最后保存date和上次打印date被更改。

保存文档时，如何阻止上次打印date不受影响？

这是我一直在使用的代码：

Sub Footer() ActiveSheet.PageSetup.LeftFooter = "&9" & "Last Saved: " & ThisWorkbook.BuiltinDocumentProperties(12) & Chr(13) & "Last Printed: " & ThisWorkbook.BuiltinDocumentProperties(10) ActiveSheet.PageSetup.RightFooter = "&9" & ActiveWorkbook.Path & Chr(13) & ActiveWorkbook.Name & Chr(13) & ActiveSheet.Name End Sub