none
Error al exportar reporte a PDF RRS feed

  • Pregunta

  • Buenas. Tengo el siguiente problema. Estoy tratando de exportar mi reporte generado en CR a PDF.

    para lo cual uso el siguiente codigo:

    Dim Parametros As ParameterFields = New ParameterFields()
    Dim TercerParametro As ParameterField = New ParameterField()
    Dim myDiscreteValue3 As ParameterDiscreteValue = New ParameterDiscreteValue()
    TercerParametro.ParameterFieldName = "comentarios"
    myDiscreteValue3.Value = temporal(11)
    TercerParametro.CurrentValues.Add(myDiscreteValue3)
    Parametros.Add(TercerParametro)
    CrystalReportViewer1.ParameterFieldInfo = Parametros
    '----------------------------------
    Dim CrExportOptions As ExportOptions
    Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
    Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions
    CrDiskFileDestinationOptions.DiskFileName = "c:\" & temporal(13).ToString & ".pdf"
    CrExportOptions = reciboss1.ExportOptions
    With CrExportOptions
          .ExportDestinationType = ExportDestinationType.DiskFile
          .ExportFormatType = ExportFormatType.PortableDocFormat
          .DestinationOptions = CrDiskFileDestinationOptions
          .FormatOptions = CrFormatTypeOptions
    End With
    reciboss1.Export()

    me da el siguiente mensaje de error:

    ParameterfieldcurrentvalueException. Faltan los valores del parametro

    Debo agregar que el usar parametros en CR ya lo habia hecho antes con el mismo procedimiento y sin ningun tipo de problema. Solo que ahora por primera vez estoy tratando de exportar a PDF el reporte directamente por codigo. Tambien debo agregar que el reporte principal tiene un subreporte embebido, ya que he leido por ahi que eso puede generar conflictos con los parametros a la hora de exportarlos (no me imagino porque...). Espero alguien me pudiera ayudar. 

    Y gracias de antemano!!

    martes, 15 de mayo de 2012 15:26

Todas las respuestas

  • Buenas,

    Te paso el codigo con el que yo mando a imprimir a impresora, o a PDF, espero que te sirva.

      If PDF = False Then
                    crReport.PrintOptions.PrinterName = SettingsImpresora.PrinterName
                    crReport.PrintToPrinter(copias, False, 0, 0)
                Else
                    Dim filedest As New CrystalDecisions.Shared.DiskFileDestinationOptions
                    filedest.DiskFileName = "C:\Temp\" & Fichero & ".pdf"
    
                    crReport.PrintOptions.PaperOrientation = CrystalDecisions.[Shared].PaperOrientation.Portrait
                    'Finalmente exportamos el reporte a PDF
                    Try
                        crReport.ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, filedest.DiskFileName)
                    Catch ex As Exception
                        Correcto = False
                        GMensajes(123, "ATENCION, NO SE HA GENERADO EL FICHERO CORRECTAMENTE")
                    End Try
                    crReport.Dispose()
                    crReport = Nothing
                End If

    Espero te sirva de ayuda.

    Un saludo.

    jueves, 17 de mayo de 2012 11:15