Tutorial: Imprimir un informe local sin vista previa

  • Artículo

Este tutorial muestra cómo imprimir mediante programación un informe sin visualizarlo, utilizando el objeto LocalReport y la función de devolución de llamada CreateStreamCallback.

Requisitos previos

Debe tener acceso al informe de ejemplo y el origen de datos.Para obtener más información, vea Datos e informe de ejemplo para visitas guiadas de impresión.

Siga estos pasos para crear un proyecto de aplicación de consola.

Crear un nuevo proyecto de aplicación de consola

  1. En el menú Archivo, seleccione Nuevo y después seleccione Proyecto.

  2. En el panel Plantillas instaladas elija C# o Visual Basic.El nodo C# o Visual Basic puede estar debajo de Otros lenguajes, dependiendo de la configuración de inicio de Visual Studio.

  3. En el panel Plantillas, elija Aplicación de consola.

  4. En el cuadro Nombre, escriba el nombre del proyecto: PrintLocalReport.

  5. En el cuadro Ubicación, escriba el directorio en el que desea guardar el proyecto o haga clic en Examinar para navegar hasta él.

  6. Haga clic en Aceptar.El proyecto se abre con la ventana Código que muestra el archivo de código Program.

Agregar referencias

  1. En el menú Proyecto, seleccione Agregar referencia.

  2. En el cuadro de diálogo Agregar referencia, en la pestaña .NET, seleccione System.Drawing, System.Windows.Forms y Microsoft.ReportViewer.Winforms.

  3. Haga clic en Aceptar.

Agregar los archivos existentes report.rdlc y data.xml

  1. En el menú Proyecto, seleccione Agregar elemento existente.Aparecerá el cuadro de diálogo Agregar elemento existente.

  2. Navegue a la carpeta en la que ha guardado los archivos report.rdlc y data.xml.Seleccione ambos archivos.

  3. Haga clic en Agregar.Los dos archivos aparecerán en el Explorador de soluciones como parte del proyecto.

Agregar el código

  1. El archivo de código Program debería estar abierto para edición.Si no es así, haga doble clic en el archivo Program.cs o Module1.vb en la ventana Explorador de soluciones.

  2. Reemplace el código existente en el archivo Program por el código siguiente del lenguaje de programación elegido.

    Nota

    Si no dispone de una impresora con el nombre Microsoft XPS Document Writer instalada en el equipo, cambie el código en negrita por el nombre de una impresora instalada en su equipo.

    using System;
using System.IO;
using System.Data;
using System.Text;
using System.Drawing.Imaging;
using System.Drawing.Printing;
using System.Collections.Generic;
using System.Windows.Forms;
using Microsoft.Reporting.WinForms;

public class Demo : IDisposable
{
    private int m_currentPageIndex;
    private IList<Stream> m_streams;

    private DataTable LoadSalesData()
    {
        // Create a new DataSet and read sales data file 
        //    data.xml into the first DataTable.
        DataSet dataSet = new DataSet();
        dataSet.ReadXml(@"..\..\data.xml");
        return dataSet.Tables[0];
    }
    // Routine to provide to the report renderer, in order to
    //    save an image for each page of the report.
    private Stream CreateStream(string name,
      string fileNameExtension, Encoding encoding,
      string mimeType, bool willSeek)
    {
        Stream stream = new MemoryStream();
        m_streams.Add(stream);
        return stream;
    }
    // Export the given report as an EMF (Enhanced Metafile) file.
    private void Export(LocalReport report)
    {
        string deviceInfo =
          @"<DeviceInfo>
                <OutputFormat>EMF</OutputFormat>
                <PageWidth>8.5in</PageWidth>
                <PageHeight>11in</PageHeight>
                <MarginTop>0.25in</MarginTop>
                <MarginLeft>0.25in</MarginLeft>
                <MarginRight>0.25in</MarginRight>
                <MarginBottom>0.25in</MarginBottom>
            </DeviceInfo>";
        Warning[] warnings;
        m_streams = new List<Stream>();
        report.Render("Image", deviceInfo, CreateStream,
           out warnings);
        foreach (Stream stream in m_streams)
            stream.Position = 0;
    }
    // Handler for PrintPageEvents
    private void PrintPage(object sender, PrintPageEventArgs ev)
    {
        Metafile pageImage = new
           Metafile(m_streams[m_currentPageIndex]);

        // Adjust rectangular area with printer margins.
        Rectangle adjustedRect = new Rectangle(
            ev.PageBounds.Left - (int)ev.PageSettings.HardMarginX,
            ev.PageBounds.Top - (int)ev.PageSettings.HardMarginY,
            ev.PageBounds.Width,
            ev.PageBounds.Height);

        // Draw a white background for the report
        ev.Graphics.FillRectangle(Brushes.White, adjustedRect);

        // Draw the report content
        ev.Graphics.DrawImage(pageImage, adjustedRect);

        // Prepare for the next page. Make sure we haven't hit the end.
        m_currentPageIndex++;
        ev.HasMorePages = (m_currentPageIndex < m_streams.Count);
    }

    private void Print()
    {
        if (m_streams == null || m_streams.Count == 0)
            throw new Exception("Error: no stream to print.");
        PrintDocument printDoc = new PrintDocument();
        if (!printDoc.PrinterSettings.IsValid)
        {
            throw new Exception("Error: cannot find the default printer.");
        }
        else
        {
            printDoc.PrintPage += new PrintPageEventHandler(PrintPage);
            m_currentPageIndex = 0;
            printDoc.Print();
        }
    }
    // Create a local report for Report.rdlc, load the data,
    //    export the report to an .emf file, and print it.
    private void Run()
    {
        LocalReport report = new LocalReport();
        report.ReportPath = @"..\..\Report.rdlc";
        report.DataSources.Add(
           new ReportDataSource("Sales", LoadSalesData()));
        Export(report);
        Print();
    }

    public void Dispose()
    {
        if (m_streams != null)
        {
            foreach (Stream stream in m_streams)
                stream.Close();
            m_streams = null;
        }
    }

    public static void Main(string[] args)
    {
        using (Demo demo = new Demo())
        {
            demo.Run();
        }
    }
}

    Imports System
Imports System.IO
Imports System.Data
Imports System.Text
Imports System.Drawing
Imports System.Drawing.Imaging
Imports System.Drawing.Printing
Imports System.Collections.Generic
Imports System.Windows.Forms
Imports Microsoft.Reporting.WinForms

Public Class Demo
    Implements IDisposable
    Private m_currentPageIndex As Integer
    Private m_streams As IList(Of Stream)

    Private Function LoadSalesData() As DataTable
        ' Create a new DataSet and read sales data file 
        ' data.xml into the first DataTable.
        Dim dataSet As New DataSet()
        dataSet.ReadXml("..\..\data.xml")
        Return dataSet.Tables(0)
    End Function

    ' Routine to provide to the report renderer, in order to
    ' save an image for each page of the report.
    Private Function CreateStream(ByVal name As String, ByVal fileNameExtension As String, ByVal encoding As Encoding, ByVal mimeType As String, ByVal willSeek As Boolean) As Stream
        Dim stream As Stream = New MemoryStream()
        m_streams.Add(stream)
        Return stream
    End Function

    ' Export the given report as an EMF (Enhanced Metafile) file.
    Private Sub Export(ByVal report As LocalReport)
        Dim deviceInfo As String = "<DeviceInfo>" & _
            "<OutputFormat>EMF</OutputFormat>" & _
            "<PageWidth>8.5in</PageWidth>" & _
            "<PageHeight>11in</PageHeight>" & _
            "<MarginTop>0.25in</MarginTop>" & _
            "<MarginLeft>0.25in</MarginLeft>" & _
            "<MarginRight>0.25in</MarginRight>" & _
            "<MarginBottom>0.25in</MarginBottom>" & _
            "</DeviceInfo>"
        Dim warnings As Warning()
        m_streams = New List(Of Stream)()
        report.Render("Image", deviceInfo, AddressOf CreateStream, warnings)
        For Each stream As Stream In m_streams
            stream.Position = 0
        Next
    End Sub

    ' Handler for PrintPageEvents
    Private Sub PrintPage(ByVal sender As Object, ByVal ev As PrintPageEventArgs)
        Dim pageImage As New Metafile(m_streams(m_currentPageIndex))

        ' Adjust rectangular area with printer margins.
        Dim adjustedRect As New Rectangle(ev.PageBounds.Left - CInt(ev.PageSettings.HardMarginX), _
                                          ev.PageBounds.Top - CInt(ev.PageSettings.HardMarginY), _
                                          ev.PageBounds.Width, _
                                          ev.PageBounds.Height)

        ' Draw a white background for the report
        ev.Graphics.FillRectangle(Brushes.White, adjustedRect)

        ' Draw the report content
        ev.Graphics.DrawImage(pageImage, adjustedRect)

        ' Prepare for the next page. Make sure we haven't hit the end.
        m_currentPageIndex += 1
        ev.HasMorePages = (m_currentPageIndex < m_streams.Count)
    End Sub

    Private Sub Print()
        If m_streams Is Nothing OrElse m_streams.Count = 0 Then
            Throw New Exception("Error: no stream to print.")
        End If
        Dim printDoc As New PrintDocument()
        If Not printDoc.PrinterSettings.IsValid Then
            Throw New Exception("Error: cannot find the default printer.")
        Else
            AddHandler printDoc.PrintPage, AddressOf PrintPage
            m_currentPageIndex = 0
            printDoc.Print()
        End If
    End Sub

    ' Create a local report for Report.rdlc, load the data,
    ' export the report to an .emf file, and print it.
    Private Sub Run()
        Dim report As New LocalReport()
        report.ReportPath = "..\..\Report.rdlc"
        report.DataSources.Add(New ReportDataSource("Sales", LoadSalesData()))
        Export(report)
        Print()
    End Sub

    Public Sub Dispose() Implements IDisposable.Dispose
        If m_streams IsNot Nothing Then
            For Each stream As Stream In m_streams
                stream.Close()
            Next
            m_streams = Nothing
        End If
    End Sub

    Public Shared Sub Main(ByVal args As String())
        Using demo As New Demo()
            demo.Run()
        End Using
    End Sub
End Class

Compilar y ejecutar la aplicación

  1. En el menú Compilar, haga clic en Compilar solución para compilar la aplicación.Como parte del proceso de compilación, se compila el informe y se agregan a la Lista de tareas todos los errores encontrados (como los errores de sintaxis en las expresiones utilizadas en el informe).

  2. Presione F5 para ejecutar la aplicación.

    El código anterior imprimirá el informe en un archivo .xps y solicitará la ubicación de dicho archivo.Si especifica el nombre de un dispositivo de impresión, lo imprimirá en dicho dispositivo directamente.

Vea también

Referencia

LocalReport

CreateStreamCallback

CreateStreamCallback

Otros recursos

Ejemplos y visitas guiadas