Private Sub Command57_Click()
 
Dim stDocName As String
Dim kopija As Integer
Dim Kolicina As Integer
 
    Kolicina = Me.Text0 - 1
    stDocName = "rptPonuda"
For kopija = 1 To Kolicina
    DoCmd.OpenReport stDocName, acNormal
Next kopija

End Sub