Print Multiple Reports in a Batch

• Jun 25, 2020
• 2 minutes to read

This example illustrates how to print multiple reports in a single batch instead of sending one report to the printer at a time. This invokes the Print dialog only for the first report that is being printed (all the other reports are printed using the same settings).

Handle the PrintingSystemBase.StartPrint event of the ReportPrintTool‘s printing system and use the PrintTool.PrintDialog and PrintToolBase.Print methods to solve this task.

C#

using System;
using System.Drawing.Printing;
using System.Windows.Forms;
using DevExpress.XtraPrinting;
using DevExpress.XtraReports.UI;
// ...

private PrinterSettings prnSettings;

private void button1_Click(object sender, EventArgs e) {
    XtraReport1 report1 = new XtraReport1();
    XtraReport[] reports = new XtraReport[] { new XtraReport2(), new XtraReport3() };

    ReportPrintTool pt1 = new ReportPrintTool(report1);
    pt1.PrintingSystem.StartPrint += new PrintDocumentEventHandler(PrintingSystem_StartPrint);

    foreach (XtraReport report in reports) {
        ReportPrintTool pts = new ReportPrintTool(report);
        pts.PrintingSystem.StartPrint += 
            new PrintDocumentEventHandler(reportsStartPrintEventHandler);
    }

    pt1.PrintDialog();
    foreach (XtraReport report in reports) {
        ReportPrintTool pts = new ReportPrintTool(report);
        pts.Print();
    }
}

void PrintingSystem_StartPrint(object sender, PrintDocumentEventArgs e) {
    prnSettings = e.PrintDocument.PrinterSettings;
}

private void reportsStartPrintEventHandler(object sender, PrintDocumentEventArgs e) {
    int pageCount = e.PrintDocument.PrinterSettings.ToPage;
    e.PrintDocument.PrinterSettings = prnSettings;

    // The following line is required if the number of pages for each report varies, 
    // and you consistently need to print all pages.
    e.PrintDocument.PrinterSettings.ToPage = pageCount;
}

VB.NET

Imports System
Imports System.Drawing.Printing
Imports System.Windows.Forms
Imports DevExpress.XtraPrinting
Imports DevExpress.XtraReports.UI
' ...

Private prnSettings As PrinterSettings

Private Sub button1_Click(ByVal sender As Object, _ 
ByVal e As EventArgs) Handles button1.Click
    Dim report1 As New XtraReport1()
    Dim reports() As XtraReport = { New XtraReport2(), New XtraReport3() }

    Dim pt1 As New ReportPrintTool(report1)
    AddHandler pt1.PrintingSystem.StartPrint, AddressOf PrintingSystem_StartPrint

    For Each report As XtraReport In reports
        Dim pts As New ReportPrintTool(report)
        AddHandler pts.PrintingSystem.StartPrint, AddressOf reportsStartPrintEventHandler
    Next report

    pt1.PrintDialog()
    For Each report As XtraReport In reports
        Dim pts As New ReportPrintTool(report)
        pts.Print()
    Next report
End Sub

Private Sub PrintingSystem_StartPrint(ByVal sender As Object, _ 
ByVal e As PrintDocumentEventArgs)
    prnSettings = e.PrintDocument.PrinterSettings
End Sub

Private Sub reportsStartPrintEventHandler(ByVal sender As Object, _ 
ByVal e As PrintDocumentEventArgs)
    Dim pageCount As Integer = e.PrintDocument.PrinterSettings.ToPage
    e.PrintDocument.PrinterSettings = prnSettings

    ' The following line is required if the number of pages for each report varies, 
    ' and you consistently need to print all pages.
    e.PrintDocument.PrinterSettings.ToPage = pageCount
End Sub