Private Sub Command31_Click()

Dim kolicina As Integer
Dim stDocName As String
kolicina = 5 
	stDocName = "rptSkladisniDoc"   
	For kopija = 1 To kolicina
	DoCmd.OpenReport stDocName, acViewNormal
Next kopija
End Sub