Error al exportar PDF con Crystal

[Bravenap]

Muy buenas. Hasta hace unos días esto funcionaba y poco a poco, algunos reportes han comenzado a dar errores, aunque creo que es más al abrir el PDF que al exportarlo realmente. La función que utilizo tiene la posibilidad de seleccionar si se exporta en PDF o en Word. Este último no me da ningún tipo de problemas.

El error que obtengo en Adobe Acrobat es. Distintivo desconocido: '0,05'.

Código:

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

Un saludo.