Print variable copies of a worksheet

[Sid Taylor]

Hello,
I am interested in code that would allow me to take a numeric value stored in a cell and printing that many copies of a worksheet. Ie if cell A1 has a value of 4 then it would print 4 copies. Any help would be greatly appreciated.

 

[VoG]

Hi. Try

Sub Prt()
ActiveSheet.PrintOut copies:=Range("A1").Value
End Sub

 

[Sid Taylor]

Thank you so much. If that a1 value was on a different page, say "new page" would the syntax look like
ActiveSheet.PrintOut copies:=Range("new page!a1").Value
?

Hi. Try

Sub Prt()
ActiveSheet.PrintOut copies:=Range("A1").Value
End Sub

 

[VoG]

Try

Sub Prt()
ActiveSheet.PrintOut copies:=Sheets("New Page").Range("A1").Value
End Sub