下面的代碼演示了DevExpress報(bào)表控件XtraReports如何在一個(gè)報(bào)表的末尾添加另一個(gè)報(bào)表的頁(yè)面。

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

下面的代碼演示了如何一頁(yè)頁(yè)將兩個(gè)報(bào)表的頁(yè)面合并成一個(gè)單一報(bào)表。

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報(bào)表控件XtraReports如何為報(bào)表頁(yè)面重新排序,以便它可以被打印出來(lái)作為一個(gè)小冊(cè)子(第一頁(yè),最后一頁(yè),第二頁(yè),倒數(shù)第二,第三頁(yè),等等)。
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