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