如何使用XtraReport將報表導出為PDF？
首先需要在項目中新建一個報表（命名為XtraReport1）。還請注意,如果您希望用于打開系統(tǒng)中*.PDF文件的默認程序自動打開生成的文件,你可以調用Startprocess方法,示例中也有展示。
using System.Diagnostics;
using DevExpress.XtraPrinting;
using DevExpress.XtraReports.UI;
// ...
private void button1_Click(Object sender, EventArgs e)
{
// A path to export a report.
string reportPath = "c:\\Test.pdf";
// Create a report instance.
XtraReport1 report = new XtraReport1();
// Get its PDF export options.
PdfExportOptions pdfOptions = report.ExportOptions.Pdf;
// Set PDF-specific export options.
pdfOptions.Compressed = true;
pdfOptions.ImageQuality = PdfJpegImageQuality.Low;
pdfOptions.NeverEmbeddedFonts = "Tahoma;Courier New";
pdfOptions.DocumentOptions.Application = "Test Application";
pdfOptions.DocumentOptions.Author = "DX Documentation Team";
pdfOptions.DocumentOptions.Keywords = "XtraReports, XtraPrinting";
pdfOptions.DocumentOptions.Subject = "Test Subject";
pdfOptions.DocumentOptions.Title = "Test Title";
// Set the pages to be exported.
pdfOptions.PageRange = "1, 3-5";
// Export the report to PDF.
report.ExportToPdf(reportPath);
// Show the result.
StartProcess(reportPath);
}
// Use this method if you want to automaically open
// the created PDF file in the default program.
public void StartProcess(string path)
{
Process process = new Process();
Try
{
process.StartInfo.FileName = path;
process.Start();
process.WaitForInputIdle();
}
catch { }
}
Imports System.Diagnostics
Imports DevExpress.XtraPrinting
Imports DevExpress.XtraReports.UI
' ...
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Button1.Click
' A path to export a report.
Dim reportPath As String = "c:\\Test.pdf"
' Create a report instance.
Dim report As New XtraReport1()
' Get its PDF export options.
Dim pdfOptions As PdfExportOptions = report.ExportOptions.Pdf
' Set PDF-specific export options.
pdfOptions.Compressed = True
pdfOptions.ImageQuality = PdfJpegImageQuality.Low
pdfOptions.NeverEmbeddedFonts = "Tahoma;Courier New"
pdfOptions.DocumentOptions.Application = "Test Application"
pdfOptions.DocumentOptions.Author = "DX Documentation Team"
pdfOptions.DocumentOptions.Keywords = "XtraReports, XtraPrinting"
pdfOptions.DocumentOptions.Subject = "Test Subject"
pdfOptions.DocumentOptions.Title = "Test Title"
' Set the pages to be exported.
pdfOptions.PageRange = "1, 3-5"
' Export the report to PDF.
report.ExportToPdf(reportPath)
' Show the result.
StartProcess(reportPath)
End Sub
' Use this method if you want to automaically open
' the created PDF file in the default program.
Public Sub StartProcess(ByVal path As String)
Dim process As New Process()
Try
process.StartInfo.FileName = path
process.Start()
process.WaitForInputIdle()
Catch
End Try
End Sub
