Dim Izvestaj As String
      Izvestaj = Me.txtRaport
      DoCmd.OpenReport Izvestaj, acViewPreview
      DoCmd.RunCommand acCmdPrint
      DoCmd.Close acReport, Izvestaj, acSaveNo