Macro to print x number of copies

[djl0525]

I have a macro that prints. I want it to print x number of copies where x is the number in cell A1. Is this the line I need to modify to make that happen? If so, what does it need to say, please?

ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True

Thanks in advance
DJ

 

[spazmonkey]

This should do it


Dim PrintNo As Integer
PrintNo = Range("A1")

ActiveWindow.SelectedSheets.PrintOut Copies:=PrintNo, Collate:=True