只能用另存为的方式咯，用vba代码实现。比如：Sub 保存()d = Format(Date, "yyyy年m月d日")s = ThisWorkbook.NameThisWorkbook.SaveAs ThisWorkbook.Path & "\" & s & dEnd Sub
不改变原始表格数据，打印时自动添加打印日期。
看看这个材料行不？
