Hola creo ke me van a odiar porke nomas pregunto y pregunto pero buneo un saludo a todos y me pregunta es la siguiente ke esta mal en mi codigo de exportacion:
Código:
Private RepDiaCrr As New CryRptDiaCrr
Private crreportdocument As New ReportDocument
Private Ruta As String = Server.MapPath(ConfigurationSettings.AppSettings("Ruta"))
Dim rptExportPath, rptFname, rptdirreport_export As String
Dim crExportOptions As ExportOptions
Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
'Asigna el nombre del reporte que sera exportado
rptFname = sNomxDef + ".pdf"
'INDICAMOS LA RUTA DE EXPORTACION
'rptExportPath = Server.MapPath(Ruta)
rptExportPath = Request.PhysicalApplicationPath + Ruta
'CREAR UNA NUEVA EXPORTACION DE ARCHIVO A DISCO
crDiskFileDestinationOptions = New DiskFileDestinationOptions
'SIMPLIFICACION DE CODIGO, ESTE SE HACE PARA EVITAR ESCRIVIR MUCHAS VECES crreportdocument.ExportOptions.....
crExportOptions = crreportdocument.ExportOptions
'SELECCIONAMOS EL FORMATO AL QUE QUEREMOS EXPORTAR
crDiskFileDestinationOptions.DiskFileName = rptExportPath + rptFname
With crExportOptions
.DestinationOptions = crDiskFileDestinationOptions
.ExportDestinationType = ExportDestinationType.DiskFile
.ExportFormatType = ExportFormatType.PortableDocFormat
End With
rptdirreport_export = "Reportes Exportados\"
'INDICA EL NOMBRE DEL ARCHIVO A EXPORTAR
Try
'EXPORTA EL REPORTE Y LO ABRE, REDIRECCIONANDOLO
crExportOptions.DestinationOptions = crDiskFileDestinationOptions
crreportdocument.Export()
Response.Redirect(rptdirreport_export & System.IO.Path.GetFileName(rptFname)) ' abre el reporte exportado
Catch err As Exception
Response.Write("<BR>")
Response.Write(err.Message.ToString) ' escribe el mensaje de error si llega a ocurrir alguno
End Try
Y el error ke me manda es ke tengo algo mal en la linea
crExportOptions = crreportdocument.ExportOptions
pero no se porke me manda ese error, me podrian ayudar