Use:

ActiveWindow.SelectedSheets.PrintOut Copies:=3

or

ActiveSheet.PrintOut Copies:=3

Bob Flanagan
Macro Systems
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel


"David" wrote in message
om...
I am trying to create a macro to print. It prints but I get run time
error 424 object required. WHat is wrong and how can I fix it? How
can I tell it ot print 3 copies of the active sheet?

Here's my code:

Sub prtout()
ActiveSheet.PrintOut.ActivePrinter
End Sub