Przewodnik: drukowanie raportu lokalnego bez podglądu
Niniejszy przewodnik pokazuje, jak programowo wydrukować raportu bez wyświetlania, za pomocą LocalReport obiektu i CreateStreamCallback funkcja wywołania zwrotnego.
Wymagania wstępne
Musi mieć dostęp do przykładu raportu i źródła danych. Aby uzyskać więcej informacji, zobacz Wskazówki dotyczące przykładowych danych i konfigurowania raportu na potrzeby drukowania.
Należy wykonać następujące czynności, aby utworzyć projekt aplikacji konsoli.
Utwórz nowy projekt aplikacji konsoli
W menu Plik wskaż polecenie Nowy, a następnie wybierz opcję Projekt.
W zainstalowane szablony okienku wybierz C# lub Visual Basic. C# lub Visual Basic węzeł może być poniżej inne języki, zależnie od ustawień uruchamiania w Visual Studio.
W szablony okienku wybierz aplikacji konsoli.
W nazwa wpisz nazwę projektu: PrintLocalReport.
W lokalizacji wprowadź katalog, w którym chcesz zapisać swój projekt, lub kliknij przycisk Przeglądaj , aby łączyć się z nim.
Kliknij przycisk OK. Otwiera projekt z kod okno programu pliku kodu.
Dodaj odwołania
Z projektu menu, wybierz opcję Dodaj odwołanie.
W Dodaj odwołanie dialogowym na .NET wybierz kartę System.Drawing, System.Windows.Forms, i Microsoft.ReportViewer.Winforms.
Kliknij przycisk OK.
Dodaj istniejące pliki report.rdlc i data.xml
Z projektu menu, wybierz opcję Dodaj istniejący element. Dodaj istniejący element zostanie wyświetlone okno dialogowe.
Przejdź do folderu, w którym zapisywane są report.rdlc i data.xml. Wybierz oba te pliki.
Kliknij przycisk Dodaj. Dwa pliki są wyświetlane w Eksploratorze rozwiązań w ramach projektu.
Dodaj kod
Plik kodu programu powinien być już otwarty do edycji. Jeśli nie jest dostępne, kliknij dwukrotnie plik Plik Program.cs lub Module1.vb w Eksploratora rozwiązań okna.
Zastąp istniejący kod w pliku programu następujący kod dowolnego języka programowania.
Uwaga
Jeśli Twój tam nie jest drukarkę o nazwie Microsoft XPS Document Writer zainstalowane na komputerze, zmienić kod pogrubiony nazwanych drukarki na swoim komputerze.
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
Tworzenie i uruchamianie aplikacji
Na tworzenie menu, kliknij przycisk tworzyć rozwiązania do tworzenia aplikacji. W ramach procesu kompilacji, raport jest skompilowana i wszelkie błędy znaleziono (na przykład błąd składniowy w wyrażeniu używane w raporcie) są dodawane do listy zadań.
Naciśnij klawisz F5 do uruchomienia aplikacji.
Powyższy kod będzie wydrukować raportu do pliku XPS i monit o podanie lokalizacji pliku. Jeśli zostanie określona nazwa drukowania urządzenia, jego zostanie raport do tego urządzenia bezpośrednio.
Zobacz też
Informacje
LocalReport
CreateStreamCallback
CreateStreamCallback