下面的代碼演示了DevExpress報表控件XtraReports如何在一個報表的末尾添加另一個報表的頁面。

C#
private void CombineTwoReports() {
// Create the 1st report and generate its document.
XtraReport1 report1 = new XtraReport1();
report1.CreateDocument();

// Create the 2nd report and generate its document.
XtraReport2 report2 = new XtraReport2();
report2.CreateDocument();

// Add all pages of the 2nd report to the end of the 1st report.
report1.Pages.AddRange(report2.Pages);

// Reset all page numbers in the resulting document.
report1.PrintingSystem.ContinuousPageNumbering = true;

// Show the Print Preview form.
report1.ShowPreviewDialog();
}
VB
Private Sub CombineTwoReports()
' Create the 1st report and generate its document.
Dim report1 As XtraReport1 = New XtraReport1()
report1.CreateDocument()

' Create the 2nd report and generate its document.
Dim report2 As XtraReport2 = New XtraReport2()
report2.CreateDocument()

' Add all pages of the 2nd report to the end of the 1st report.
report1.Pages.AddRange(report2.Pages)

' Reset all page numbers in the resulting document.
report1.PrintingSystem.ContinuousPageNumbering = True

' Show the Print Preview form.
report1.ShowPreviewDialog()
End Sub

下面的代碼演示了如何一頁頁將兩個報表的頁面合并成一個單一報表。

C#
private void MergeTwoReports() {
// Create the 1st report and generate its document.
XtraReport1 report1 = new XtraReport1();
report1.CreateDocument();

// Create the 2nd report and generate its document.
XtraReport2 report2 = new XtraReport2();
report2.CreateDocument();

// Merge pages of two reports, page-by-page.
int minPageCount = Math.Min(report1.Pages.Count, report2.Pages.Count);
for (int i = 0; i < minPageCount; i++) {
report1.Pages.Insert(i * 2 + 1, report2.Pages[i]);
}
if (report2.Pages.Count != minPageCount) {
for (int i = minPageCount; i < report2.Pages.Count; i++) {
report1.Pages.Add(report2.Pages[i]);
}
}

// Reset all page numbers in the resulting document.
report1.PrintingSystem.ContinuousPageNumbering = true;

// Show the Print Preview form.
report1.ShowPreviewDialog();
}
VB
Private Sub MergeTwoReports()
' Create the 1st report and generate its document.
Dim report1 As XtraReport1 = New XtraReport1()
report1.CreateDocument()

' Create the 2nd report and generate its document.
Dim report2 As XtraReport2 = New XtraReport2()
report2.CreateDocument()

' Merge pages of two reports, page-by-page.
Dim minPageCount As Integer = Math.Min(report1.Pages.Count, report2.Pages.Count)
Dim i As Integer = 0
Do While i < minPageCount
report1.Pages.Insert(i * 2 + 1, report2.Pages(i))
i += 1
Loop

If report2.Pages.Count <> minPageCount Then
i = minPageCount
Do While i < report2.Pages.Count
report1.Pages.Add(report2.Pages(i))
i += 1
Loop
End If

' Reset all page numbers in the resulting document.
report1.PrintingSystem.ContinuousPageNumbering = True

' Show the Print Preview form.
report1.ShowPreviewDialog()
End Sub
下面的代碼演示了DevExpress報表控件XtraReports如何為報表頁面重新排序,以便它可以被打印出來作為一個小冊子(第一頁,最后一頁,第二頁,倒數(shù)第二,第三頁,等等)。
C#
private void CreateBooklet() {
// Create the 1st report and generate its document.
XtraReport1 report1 = new XtraReport1();
report1.CreateDocument();

// Preserve original page numbers on all pages.
report1.PrintingSystem.ContinuousPageNumbering = false;

// Create a booklet.
int centerPageIndex = Convert.ToInt32((report1.Pages.Count - 1) / 2);
for (int i = 0; i < centerPageIndex; i++) {
report1.Pages.Insert(i * 2 + 1, report1.Pages[report1.Pages.Count - 1]);
}

// Show the Print Preview form.
report1.ShowPreviewDialog();
}
VB
Private Sub CreateBooklet()
' Create the 1st report and generate its document.
Dim report1 As XtraReport1 = New XtraReport1()
report1.CreateDocument()

' Preserve original page numbers on all pages.
report1.PrintingSystem.ContinuousPageNumbering = False

' Create a booklet.
Dim centerPageIndex As Integer = Convert.ToInt32((report1.Pages.Count - 1) / 2)
Dim i As Integer = 0
Do While i < centerPageIndex
report1.Pages.Insert(i * 2 + 1, report1.Pages(report1.Pages.Count - 1))
i += 1
Loop

' Show the Print Preview form.
report1.ShowPreviewDialog()
End Sub