Private Sub cmdIzvestaj_Click()
  
    With crIzvestai
   
        .Reset
        .Connect = cnr
        .StoredProcParam(0) = rsPrometi.Fields("ID_Promet")
        .Formulas(0) = "Naslov=" & "'" & "днмеяем опнлер" & "'"
        .Formulas(1) = "DokumentBroj=" & "'" & labDoumentBroj.Caption & "'"
        .Formulas(2) = "Data=" & "'" & txtData.Text & "'"
        .Formulas(3) = "Korisnik=" & "'" & cboKorisnik.Text & "'"
        .Formulas(4) = "PoDokument=" & "'" & txtPoDokument.Text & "'"
        .ReportFileName = App.path & "\Reports\" & "rptDonesenPromet.rpt"
      
        .Destination = crptToWindow
        .WindowLeft = 0
        .WindowTop = 0
        .WindowWidth = Screen.Width
        .WindowHeight = Screen.Height
        .WindowState = crptMaximized
        .Action = 1
    End With
 
End Sub