彩票走势图

这个示例将展示如何使用XtraReport将报表导出为PDF格式。 首先需要在项目中新建一个报表（命名为XtraReport1）。还请注意,如果您希望用于打开系统中*.pdf文件的默认程序自动打开生成的文件,你可以调用StartProcess方法,示例中也有展示。

C#

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