如何使用XtraReport将报表导出为PDF

最新推荐文章于 2025-06-05 15:23:46 发布

GIS程序猿

最新推荐文章于 2025-06-05 15:23:46 发布

阅读量3.8k

点赞数

分类专栏： WPF 文章标签： pdf

WPF 专栏收录该内容

21 篇文章

订阅专栏

本文介绍如何使用XtraReport工具将报表导出为PDF格式，并提供了设置PDF导出选项及自动打开生成文件的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

概述：这个示例将展示如何使用XtraReport将报表导出为PDF格式。

这个示例将展示如何使用XtraReport将报表导出为PDF格式。首先需要在项目中新建一个报表（命名为XtraReport1）。还请注意,如果您希望用于打开系统中*.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 
        { }
       
        }
       
        VB

  
        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

文章转自：https://www.evget.com/article/2012/11/26/18159.html