using DevExpress.XtraReports.UI;
using DevExpress.ExpressApp;
using DevExpress.ExpressApp.ReportsV2;
public class MergeReportHelper {
ReportDataSourceHelper helper;
public MergeReportHelper(ModuleList modules) {
ReportsModuleV2 module = ReportsModuleV2.FindReportsModule(modules);
if (module != null) {
module.ReportsDataSourceHelper.BeforeShowPreview =
ReportsDataSourceHelper_BeforeShowPreview;
}
}
private void ReportsDataSourceHelper_BeforeShowPreview(
object sender, BeforeShowPreviewEventArgs e) {
MergeReportsBeforeShow(e.Report, (ReportDataSourceHelper)sender);
}
private void MergeReportsBeforeShow(
XtraReport report, ReportDataSourceHelper reportsDataSourceHelper) {
if (report is FirstReport) {
report.AfterPrint = report_AfterPrint;
helper = reportsDataSourceHelper;
}
}
void report_AfterPrint(object sender, EventArgs e) {
FirstReport firstReport = sender as FirstReport;
SecondReport secondReport = new SecondReport();
helper.SetupReport(secondReport);
secondReport.CreateDocument(false);
firstReport.Pages.AddRange(secondReport.Pages);
firstReport.PrintingSystem.ContinuousPageNumbering = true;
}
}
Imports DevExpress.XtraReports.UI
Imports DevExpress.ExpressApp
Imports DevExpress.ExpressApp.ReportsV2
Public Class MergeReportHelper
Private helper As ReportDataSourceHelper
Public Sub New(ByVal modules As ModuleList)
Dim [module] As ReportsModuleV2 = ReportsModuleV2.FindReportsModule(modules)
If [module] IsNot Nothing Then
AddHandler [module].ReportsDataSourceHelper.BeforeShowPreview, _
AddressOf ReportsDataSourceHelper_BeforeShowPreview
End If
End Sub
Private Sub ReportsDataSourceHelper_BeforeShowPreview(ByVal sender As Object, _
ByVal e As BeforeShowPreviewEventArgs)
MergeReportsBeforeShow(e.Report, DirectCast(sender, ReportDataSourceHelper))
End Sub
Private Sub MergeReportsBeforeShow(ByVal report As XtraReport, _
ByVal reportsDataSourceHelper As ReportDataSourceHelper)
If TypeOf report Is FirstReport Then
AddHandler report.AfterPrint, AddressOf report_AfterPrint
helper = reportsDataSourceHelper
End If
End Sub
Private Sub report_AfterPrint(ByVal sender As Object, ByVal e As EventArgs)
Dim firstReport As FirstReport = TryCast(sender, FirstReport)
Dim secondReport As New SecondReport()
helper.SetupReport(secondReport)
secondReport.CreateDocument(False)
firstReport.Pages.AddRange(secondReport.Pages)
firstReport.PrintingSystem.ContinuousPageNumbering = True
End Sub
End Class
