用宏命令 Sub 宏1()Dim iFor i = 1 To Sheets.Count '工作表的总数 Sheets(i).PageSetup.PrintArea = "" '打印区域设置为空NextEnd Sub
不能，因为你全选工作表的时候打印设置那不能编辑打印区域
