ActiveSheet.PrintOut copies:=3
activeworkbook.close SaveChanges:=False

if you want to quit excel then use

Application.Quit


--
HTH

Bob Phillips

"sighsky" wrote in message
...
Hi,
How do I write the code for printing for 3 copies and then exit the
excel program without prompt for saving?

Any help would be very appreciated.