PrintOut command not working.

[jryan15]

Sub Macro1()
Workbooks("Dept169.xls").Close SaveChanges:=False
Workbooks("Dept187.xls").Close SaveChanges:=False
Workbooks("Dept287.xls").Close SaveChanges:=False
Workbooks("Dept56.xls").Close SaveChanges:=False
Workbooks("Dept60a.xls").Close SaveChanges:=False
Workbooks("Dept60b.xls").Close SaveChanges:=False
Workbooks("Dept61.xls").Close SaveChanges:=False
Workbooks("Dept62.xls").Close SaveChanges:=False
Workbooks("Dept71.xls").Close SaveChanges:=False
Workbooks("Dept72a.xls").Close SaveChanges:=False
Workbooks("Dept72b.xls").Close SaveChanges:=False
Workbooks("Dept87.xls").Close SaveChanges:=False
Workbooks("RV_Gear_Sheets.xls").Close SaveChanges:=False
Sheets(Array("Recap", "Page 2", "Page 3", "Page 4")).Select
Sheets("Recap").Activate
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
ActiveWorkbook.Save
Application.Quit
End Sub

i've got the following piece of code that was working fine with excel 2000, but since we converted to office 2003, the script doesn't work fully. Everything works up to the line to print... None of the files print and the program doesn't close.

i single stepped through the program, and there were no errors and the file actually printed and asked to close. not sure why it's not working automatically. any help would be appreciated. thanks.