execl文件打印同时或打印后,自动另存为,,,

Question

随机打开一个excel文件,修改后保存或者不保存,然后打印.打印同时或者打印后,自动另存为.

Answer 1

可以写一个VBA宏程序的，在完成打印后再自动存储就是的拉，当然的判断是新文件还是已经存在的文件，根据情况做一个选择就可以的拉

Answer 2

Sub Macro1()
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
    ActiveWorkbook.SaveAs Filename:= _
        "C:\Documents and Settings\Administrator\My Documents\New.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
End Sub
怎么让做成程序调用成为:随机打开一个excel文件.打印后另存为.if printOut then
saveAs ...
end if