根據下面代碼將通過添加相同的報表頁面創建一個單獨的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()