El error que obtengo en Adobe Acrobat es. Distintivo desconocido: '0,05'.
Código:
Un saludo. Private Sub generaFactura(ByVal tipo As CrystalDecisions.Shared.ExportFormatType) Try Dim rpt As New CrystalDecisions.CrystalReports.Engine.ReportDocument rpt.Load(Server.MapPath("../Reportes/Factura.rpt"), CrystalDecisions.[Shared].OpenReportMethod.OpenReportByTempCopy) rpt.SetParameterValue("NumFactura", Me.txtNumFactura.Text) rpt.SetParameterValue("FechaVisado", Me.lblFechaFacturacion.Text) rpt.SetParameterValue("Clave", Me.ddlTipos.SelectedItem.Text) rpt.SetParameterValue("SistemaCobro", Me.rblCobro.SelectedValue) rpt.SetParameterValue("NumCliente", Me.txtNumCliente.Text) rpt.SetParameterValue("Cliente", Me.txtCliente.Text) rpt.SetParameterValue("Concepto", Me.txtTitulo.Text & ". " & Me.txtLocalidad.Text.Trim & " (" & Me.ddlProvincias.SelectedItem.Text & ")") rpt.SetParameterValue("Observaciones", Me.txtObservacionesVisado.Text) rpt.SetParameterValue("Precio", Me.txtPrecio.Text) rpt.SetParameterValue("TipoIVA", Me.txtTipoIVA.Text) 'Se envía el informe Dim rptStream As New IO.MemoryStream rptStream = rpt.ExportToStream(tipo) Response.Clear() Response.Buffer = True If tipo = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat Then Response.ContentType = "application/pdf" Response.AddHeader("Content-Disposition", "attachment;filename=" & "Factura" & Me.txtNumFactura.Text & ".pdf") Else Response.AddHeader("Content-Disposition", "attachment;filename=" & "Factura" & Me.txtNumFactura.Text & ".doc") Response.ContentType = "application/msword" End If Response.BinaryWrite(rptStream.ToArray()) Response.End() Catch ex As CrystalDecisions.CrystalReports.Engine.ParameterFieldCurrentValueException mens(ex.StackTrace & "<br>" & ex.Message) End Try End Sub