Print more than one copy VBA

[stagnut]

Hi,

I have the following code to print, but would like to add a number from a cell so that it prints more copies if required. Can anyone help ?

Sub Sunday()
Range("Sunday").PrintOut
Range("Sunday2").PrintOut
End Sub

Thanks...

 

[Scott T]

Where I1 has the number of copies to print

Range("Sunday").PrintOut Copies:=Range("I1")

 

[stagnut]

Where I1 has the number of copies to print

Range("Sunday").PrintOut Copies:=Range("I1")

Many thanks Scott T, all works except it also prints one extra to whatever the number is in the cell.

 

[Scott T]

So if you put 2 in the cell you get 3 copies? The code works for me even if I put 2.5 in the cell I get 2 copies.

 

[stagnut]

Sorry Scott T. I was having a tired day yesterday and included your line in with the others instead of substituting.
All sorted now that I'm awake......many thanks it works perfectly

 

[Scott T]

Glad to help.