I have an Excel 2003 worksheet that i have to print to 10 different printers a night. Im looking for a way to print to all the printers at once rather then manually printing to each one. The logical route and the one that i attempted (but failed at) is to create a macro with a button. The problem i came across was that when i ran the macro it printed twice to the first printer on the list and nothing else. I checked the code and it looked fine to me but im clearly no expert. I will paste the code below but i have to change the name of our server for security purposes. Thanks for any help!



Sub Print1()
'
' Print1 Macro



ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Application.ActivePrinter = "\\ps1.company.com\PRN0013 on Ne04:"


ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"\\ps2.company.com\PRN0008 on Ne08:", Collate:=True
End Sub