Private RapportoTrasm As New RapportoTrasm
For idlista = 0 To Me.ListView1.Items.Count - 1
    RapportoTrasm.SetDataSource(New GestoreStampe().AnteprimaRapporto(CInt(codalb), Me.ListView1.SelectedItems(idlista).Text.Remove(8, 4)))
Next

 AnteprimaReport.CrystalReportViewer1.ReportSource = RapportoTrasm
AnteprimaReport.ShowDialog()