Private Sub Combo1_AfterUpdate()
SetPrt (Combo1.Column(0))
Dim NazivIzvjestaja As String
NazivIzvjestaja = "rptStampaci"
DoCmd.OpenReport NazivIzvjestaja, acViewPreview
End Sub