Private Sub Command57_Click()

Dim stDocName As String
Dim kopija As Integer
Dim Kolicina As Integer

    Kolicina = Me.Text0 - 1
    stDocName = "rptPonuda"
    DoCmd.OpenReport stDocName, acNormal
For kopija = 1 To Kolicina
   DoCmd.PrintOut
Next kopija

End Sub