EXPORTANDO CRYSTAL REPORTS PARA PDF

FABDANTAS 11/09/2013 11:30:59
#428698

Ola tenho um relatório e já consigo exportar para pdf.

Neste relatório tem pedidos e orçamento e o numero deles.

Quando ele gera o pdf sempre esta com o nome RELATORIO.PDF, e eu gostaria que ele exporta-se como esta no exemplo abaixo:

PEDIDO 52 - gerar pdf -> C:\PEDIDO52.PDF

ORÇAMENTO 53 - gerar pdf -> C:\ORÇAMENTO53.PDF

Segue meu codigo abaixo:

Dim crystal As New CrystalReport3
Dim pdfFile As String = [Ô]c:\RELATORIO.pdf[Ô]


Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim CrExportOptions As ExportOptions
Dim CrDiskFileDestinationOptions As New _
DiskFileDestinationOptions()
Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions
CrDiskFileDestinationOptions.DiskFileName = pdfFile
CrExportOptions = crystal.ExportOptions
With CrExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
.DestinationOptions = CrDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
End With
crystal.Export()
Catch ex As Exception
MsgBox(ex.ToString)
End Try