Private Sub Report_Open(Cancel As Integer)

Me.Mjesec.Caption = Me.OpenArgs
End Sub