Auto printing through VBA

[PatrickinDallas]

Excel 2003

I currently have VBA code to autoprint 4 copies of a report once it's done compliling and running through the macro. The number of copies needed is starting to vary. Is there a way in the code to have it prompt me for the number of copies needed?

Here is the code I am using:

ActiveWindow.SelectedSheets.PrintOut Copies:=3, ActivePrinter:= _
"HP Color LaserJet CP2020 Series PCL 6 on Ne03:", Collate:=True

Thank you very very much.

 

[Mohammad Basem]

Hi,

Try

[FONT="Consolas"][SIZE="2"][COLOR="Navy"]iCopies = InputBox("Please enter number of copies")
ActiveWindow.SelectedSheets.PrintOut Copies:= iCopies, ActivePrinter:= _
"HP Color LaserJet CP2020 Series PCL 6 on Ne03:", Collate:=True[/COLOR][/SIZE][/FONT]

 

[PatrickinDallas]

Works perfect.. thank you very much.

 

[Mohammad Basem]

Al-hamdullah, you are most welcome and thank you for the feedback!