亲,打开你的Excel文件,按“Alt+F11”打开VBA编辑窗口,然后在左侧双击“ThisWorkbook”,右侧空白处粘贴下面的代码。

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ThisWorkbook.SaveCopyAs "D:\" & Range(A1) & ".xlsx"
End Sub
追问
wps是否可以?
粘贴之后怎么做?如何执行?是说我每次打印之后自动另存了么?
我只想保存当前意见书工作表为另一个表格,不要包含sheet2和3的内容(因为我“意见书”工作表的内容是从另两个工作表调用出来的数据)
追答Sorry,笔误,忘了加双引号。
另外,根据你新的要求做了更改:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "意见书" Then
With ThisWorkbook.ActiveSheet
Workbooks.Add
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="D:\" & .Range("A1") & ".xlsx"
Application.DisplayAlerts = False
.Copy Before:=ActiveWorkbook.Sheets(1)
ActiveWorkbook.Close True
End With
End If
End Sub