自动将EXCEL以A1单元格内容为名字另存为到D盘中

Question

想做一个宏，当在EXCEL中点击打印按钮后能自动将EXCEL以A1单元格内容为名字另存为到D盘中，有高手能帮忙写一段代码吗，先谢谢了

Answer 1

直接在代码里先运行打印，再另存不行吗

Sub test()
ActiveWindow.SelectedSheets.PrintOut                       '打印活动工作表
ActiveWorkbook.SaveAs Filename:="D:\" & Range("A1") & ".xls"        '另存
End Sub

Answer 2

ActiveWorkbook.SaveAs Filename:="D:\" & range("A1")追问

运行的条件是点击了打印按钮，我需要这整段的代码，谢谢

本回答被提问者采纳