根據(jù)下面代碼將通過添加相同的報(bào)表頁面創(chuàng)建一個(gè)單獨(dú)的DevExpress報(bào)表(XtraReport)。

使用代碼

遵循以下命名空間要求：

Imports DevExpress.XtraPrinting   

添加XtraForm，并在該表單中添加PrintControl,RibbonControl,RibbonStatusBar1。

添加XtraReport，并按照你希望表達(dá)的方式設(shè)計(jì)。以下是我所創(chuàng)建的一個(gè)報(bào)表。

我添加了一個(gè)含有網(wǎng)格視圖和按鈕的表單。

設(shè)置該按鈕的單擊事件：

  '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()