根据下面代码将通过添加相同的报表页面创建一个单独的DevExpress报表(XtraReport)。

使用代码

遵循以下命名空间要求：

Imports DevExpress.XtraPrinting   

添加XtraForm，并在该表单中添加PrintControl,RibbonControl,RibbonStatusBar1。

添加XtraReport，并按照你希望表达的方式设计。以下是我所创建的一个报表。

我添加了一个含有网格视图和按钮的表单。

设置该按钮的单击事件：

  'Add a XtraReport to the Designer and Create an object from it.

        Dim masterreport As New xrBill

        'Here i am loopign through the records on grid view

        For r = 0 To gvGeneratedBills.RowCount - 1

            Dim report(r) As xrBill 'Create report object

            report(r) = New xrBill

            'Add report functionality here

            'Set the modifier property of reports controls to public

            'you can access report controls and assing data from the DB

            'Finnaly Create the report

            report(r).CreateDocument()

            'Add the created report's page to the main report

            masterreport.Pages.AddRange(report(r).Pages)

            'Set the page no to the continues format

            masterreport.PrintingSystem.ContinuousPageNumbering = True

            'Bind the main report printing system to the form's printing system

            frmPrint.PrintControl1.PrintingSystem = masterreport.PrintingSystem

        Next

        'Display the report

        frmPrint.Show()

      frmPrint.BringToFront()