漫游猫认证
PrivateSubWorkbook_BeforePrint(CancelAsBoolean)Sheets(
"打印日志
"A2
").SelectActiveCell.FormulaR1C1=Now()EndSub用这个VBA,