Puedes exportar directamente mediante el objeto crystal a un .pdf
aqui puede ver como:
http://www.youtube.com/watch?v=Wpvd5vHF8Pg
Dim CrExportOptions As ExportOptions
Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
If Me.rutaPDF_output = "" Then
Me.rutaPDF_output = "MI RUTA HACIA PDF.pdf"
End If
CrDiskFileDestinationOptions.DiskFileName = Me.rutaPDF_output '& nombrePDF ' "C:\ODBCAPL\CRYSTAL\crystalExport.pdf"
CrExportOptions = rptdoc.ExportOptions
' Esto pudiera estar parametrizado para permitir otras respuestas
With CrExportOptions
.ExportDestinationType = ExportDestinationType.DiskFile
' PDF o RPT
If Me.exportarAWord Then
.ExportFormatType = ExportFormatType.WordForWindows
Else
.ExportFormatType = ExportFormatType.PortableDocFormat ' pdf OK default
End If
.DestinationOptions = CrDiskFileDestinationOptions
.FormatOptions = CrFormatTypeOptions
End With
' Genera PDF
rptdoc.Export()