or
Public despatchItems As New List(Of Integer)
Dim batchDespatchNoteReport As New ReportBook For x As Integer = 0 To despatchItems.Count - 1 batchDespatchNoteReport.Reports.Add(New DespatchReport()) batchDespatchNoteReport.Reports(x).ReportParameters(0).Value = despatchItems.Item(x) batchDespatchNoteReport.Reports(x).PageNumberingStyle = PageNumberingStyle.ResetNumberingAndCount Next batchDespatchNoteReport.DocumentName = "Despatch Note(s)" rptViewer.Report = batchDespatchNoteReport