Hi:

I want to send values that I have in a listView object,to a report and I have try this:

Code:
Dim Report As New CRAXDRT.Application
Dim Rpt As CRAXDRT.Report


Set Report = New CRAXDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\Super8-ClassificacaoFinal.rpt")


For s = 1 To FrmSuper8.ListView1(1).ListItems.Count

Rpt.ParameterFields(1).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s))  
Rpt.ParameterFields(2).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s).SubItems(2))  
Rpt.ParameterFields(3).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s).SubItems(3))  

Next

CRViewer1.ReportSource = Rpt

CRViewer1.ViewReport
But the report only show the last value...

Any help please?

Thanks