Precise Printing with VBA

Hello -
I am trying to get this worksheet to replicate itself, which works. However, I want it to print a certain number of copies based on the value in cell F2.
Yet when I run the macro the only thing that works is the division macro that is within this Copy() macro.

Sub Copy()

Dim x As Long
Call div

For x = 1 To i
With Worksheets("IP")

Worksheets("IP").PrintOut Copies:=Range("F2").Value

End With
Next x

End Sub