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

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.

Forum statistics

Threads
1,136,968
Messages
5,678,868
Members
419,787
Latest member
juanam

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