Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
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 & \"\'\")
He utilizado el códifo qué habeis publicado y me da el siguiente error: Error en archivo c:\....\Req_Hard.rpt: Denegado el acceso al archivo del informe. Es posible que esté abierto en otro programa. Que yo sepa no sta abierto pero....no funciona ayudadme por favor