PrintOut command not working.

jryan15

Board Regular
Joined
Jan 27, 2005
Messages
152
Code:
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.
 

Excel Facts

Can a formula spear through sheets?
Use =SUM(January:December!E7) to sum E7 on all of the sheets from January through December

Watch MrExcel Video

Forum statistics

Threads
1,133,658
Messages
5,660,156
Members
418,555
Latest member
Ike Andoit

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top