Esto es lo que yo hago. Genero un pdf y lo ejecuto en el navegador:
Código:
Dim Report As New Nombre_del_Reporte
Dim exportOpts As New CrystalDecisions.Shared.ExportOptions
Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions
diskOpts.DiskFileName = "C:\Reporte.pdf"
Report.PrintOptions.PaperSize = CrystalDecisions.Shared.PaperSize.DefaultPaperSize
Report.PrintOptions.PaperOrientation = CrystalDecisions.Shared.PaperOrientation.DefaultPaperOrientation
Report.DataDefinition.FormulaFields("cFechaTrabajo").Text = "'" & Format(CDate(Request.QueryString("Fecha")), "dd/MM/yyyy") & "'"
Report.DataDefinition.RecordSelectionFormula = "{MovPeriodico_vw.cdCodigo} = '" & Request.QueryString("Ruta") & "'"
'-- En caso de que la conxión sea con OleDB--
Dim crTables As CrystalDecisions.CrystalReports.Engine.Tables
Dim crTable As CrystalDecisions.CrystalReports.Engine.Table
Dim crConnInfo As New CrystalDecisions.Shared.ConnectionInfo
Dim crLogOnInfo As CrystalDecisions.Shared.TableLogOnInfo
crTables = Report.Database.Tables
For Each crTable In crTables
crConnInfo.DatabaseName = "DB"
crConnInfo.ServerName = "SERVIDOR"
crConnInfo.UserID = "USER"
crConnInfo.Password = "PASSWORD"
crLogOnInfo = crTable.LogOnInfo
crLogOnInfo.ConnectionInfo = crConnInfo
crTable.ApplyLogOnInfo(crLogOnInfo)
Next
'---------------------------------------------
exportOpts = Report.ExportOptions
exportOpts.ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
exportOpts.ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
exportOpts.DestinationOptions = diskOpts
Report.Export() 'Con esto se genera un DPF
'--Abrir el reporte--
Dim PaginaWeb As String
PaginaWeb = "http://prsist20/ConsultaProceso/Reportes/Reporte.pdf"
Response.Write("<script>" & vbCrLf)
Response.Write("window.open('" & PaginaWeb & "');" & vbCrLf)
Response.Write("javascript:history.back();" & vbCrLf)
Response.Write("</script>")
'--------------------