RE:Claro que si, aqui esta
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Dim crReportDocument As ReportDocument
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
en el boton
Dim exportFilePath As String = \"c:\\pdfexport.pdf\"
\'\'Create an instance of the untyped report object
crReportDocument = New ReportDocument()
\'\'Load the report from disk
crReportDocument.Load(\"c:/documentos/report.rpt\")
\'\'Set the options for saving the exported file to disk
crDiskFileDestinationOptions = New DiskFileDestinationOptions()
crDiskFileDestinationOptions.DiskFileName = exportFilePath
\'\'Set the exporting information
crExportOptions = crReportDocument.ExportOptions
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
\' .ExportFormatType = ExportFormatType.CrystalReport
End With
\'\'Export the report
crReportDocument.Export()
\'\'Display a message letting the user know the export is complete
MessageBox.Show(\"Report exported to: \'\" & exportFilePath & \"\'\")