Private Sub Workbook_BeforePrint(Cancel As Boolean) Sheets("打印日志").Select Range("A2").Select ActiveCell.FormulaR1C1 = Now() End Sub 用这个VBA,