彩票走势图

根据下面代码将通过添加相同的报表页面创建一个单独的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()