Print code help

[jcaptchaos2]

I need some help with this code, I want it to ask the person how many copies of "B1:W18" they want and then print out that range that many times, for some reason this code is printing through "W161"

Sub PrintMe2()
    
    Application.ScreenUpdating = False

    Range("B1").Select
    Sheets("Standard Label").Select
    
 
  Dim NumPages As Variant
 
  NumPages = Application.InputBox("How many Labels would you like to Print?")
  Do Until IsNumeric(NumPages)
    NumPages = Application.InputBox("Must be a number - try again!")
  Loop
 
Sheets("Standard Label").Range("AE1").Value = NumPages

  If NumPages = 0 Then Exit Sub
 
  With ActiveSheet
    .PageSetup.PrintArea = "$b$1:$w$16" & NumPages
    .PrintOut
    
    Sheets("Interface").Select
  End With
 
End Sub

 

[jcaptchaos2]

If I change this from this

With ActiveSheet
    .PageSetup.PrintArea = "$b$1:$w$16" & NumPages
    .PrintOut

to this I get 1 page only

With ActiveSheet
    .PageSetup.PrintArea = "$b$1:$w$16"
    .PrintOut

 

[Andrew Poulsom]

Try:

.PrintOut Copies:=NumPages

 

[jcaptchaos2]

Perfect thank you Andrew