例如设置D8:E13为打印区域的VBA语句为：ActiveSheet.PageSetup.PrintArea = "$D$8:$E$13"
如指定打印区域A2:C8：
Sub 指定打印区域() Range("A2:C8").Select Selection.PrintOut Copies:=1, Collate:=TrueEnd Sub
你可以录制个宏看看，
