第1个回答 2010-01-31
Sub dy()
'
' dy Macro
' Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=2, Copies:=1
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("Sheet1").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("Sheet2").Select
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1
Sheets("Sheet3").Select
ActiveWindow.SelectedSheets.PrintOut From:=3, To:=3, Copies:=1
Application.Goto Reference:="dy"
End Sub