macro to do a loop

Posted by JL Scheels on January 24, 2001 12:12 PM

Any quick macros that will prompt for the number of copyies
to print of a form. I know how to do txtMsg and Boxes.

thanks!

Posted by doug on January 24, 2001 1:10 PM

copies=Inputbox("Copies to Print")
Application.ActivePrinter = "printer"
ActiveWindow.SelectedSheets.PrintOut copies:=copies, ActivePrinter:= _
"printer on LPT1 "

unsure if this is what you are talking about give it a try.

Posted by JL Scheels on January 25, 2001 5:24 AM

At line Application.ActivePrinter="printer"
the macro stops with object error