Private Sub Command1_Click() Dim I As Integer If Val(Trim$(Text9.Text)) > 0 Then For I = 1 To Val(Trim$(Text9.Text)) Form2.PrintForm DoEvents Next I End If End Sub