Abrir un archivo pdf con asp.net

[gfranco69]

Prueba esto el reporte a exportar a PDF es un Crystal con parametros:


Dim crReportDocument As ReportDocument = New ReportDocument()
crReportDocument.Load(Server.MapPath("App_Data\Rep orts\factura.rpt"))
Dim pFields As New ParameterFields()
Dim pFilial As New CrystalDecisions.Shared.ParameterField()
Dim pOficina As New CrystalDecisions.Shared.ParameterField()
Dim pFactura As New CrystalDecisions.Shared.ParameterField()
Dim disValFilial As New ParameterDiscreteValue()
Dim disValOficina As New ParameterDiscreteValue()
Dim disValFactura As New ParameterDiscreteValue()

pFilial.Name = "Filial"
pFilial.HasCurrentValue = True
disValFilial.Value = "1"
pFilial.CurrentValues.Add(disValFilial)
pFields.Add(pFilial)

pOficina.Name = "Oficina"
pOficina.HasCurrentValue = True
disValOficina.Value = "1"
pOficina.CurrentValues.Add(disValOficina)
pFields.Add(pOficina)

pFactura.Name = "Factura"
pFactura.HasCurrentValue = True
disValFactura.Value = CStr(Val(TreeView1.SelectedNode.Text))
pFactura.CurrentValues.Add(disValFactura)
pFields.Add(pFactura)

crReportDocument.SetParameterValue(0, pFilial.CurrentValues)
crReportDocument.SetParameterValue(1, pOficina.CurrentValues)
crReportDocument.SetParameterValue(2, pFactura.CurrentValues)

Dim exportPath As String = "C:\facturatestASP.pdf"
Dim crExportOptions As ExportOptions
Dim crDestOptions As New DiskFileDestinationOptions
crDestOptions.DiskFileName = exportPath
crExportOptions = crReportDocument.ExportOptions

crExportOptions.DestinationOptions = crDestOptions
crExportOptions.ExportDestinationType = ExportDestinationType.DiskFile
crExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat

crReportDocument.Export()

Response.Clear()
Response.ContentType = "application/pdf"
Response.AddHeader("Content-disposition", "attachment; filename=" & "C:\facturatestASP.pdf")
Response.WriteFile("C:\facturatestASP.pdf")
Response.Flush()
Response.Close()