none
Problema para exportar un reporte de crystal reports a pdf RRS feed

  • Pregunta

  • Buenas,

    Estimados tengo un problema tengo un reporte en crystal reports que nesecito exportar a pdf y posteriormente guardarlo en el disco de la pc.

    luego de guardalo nesecito agregarlo como adjunto a un correo.

    pero mi problema viene al momento de exportar aca dejo mi codigo.

    Private Sub exportar()
            Dim strCriterio As String = "({CONSEJERIA.CODIGO_ANUAL}) = '" & TextBoxCODIGO_ANUAL.Text & "'"  

      en la primera linea asigno lo que es el codigo o criterio de busqueda a una variable.

        My.Forms.ControlReportes.TextBoxREPORTE.Text = "Report_Consejeria()"

    en esta linea creo el reporte

           My.Forms.ControlReportes.TextBoxCRITERIO.Text = strCriterio

    aca realizo la busqueda del registro usando el codigo

    y Posteriormente viene la parte de la exportacion que es donde tengo el problema.

    ya que al llegar al fina me da un error.

            Dim reporte As New Report_Consejeria
            Dim opcionesdestino As New DiskFileDestinationOptions
            Dim opcionesexportar As New ExportOptions
            Dim contador As Integer
            contador = 1
            contador = contador + 1
            Dim nombre As String
            nombre = "c:\reporte" & contador & ".pdf"
            opcionesdestino.DiskFileName = "c:\reporte.pdf"
            opcionesexportar = reporte.ExportOptions
            opcionesexportar.DestinationOptions = opcionesdestino
            opcionesexportar.ExportDestinationType = ExportDestinationType.DiskFile
            opcionesexportar.ExportFormatType = ExportFormatType.PortableDocFormat
            reporte.Export()
        End Sub

    Voy a adjuntar la imagen del error.

    jueves, 17 de mayo de 2012 13:41

Todas las respuestas

  • ya que al llegar al fina me da un error.

    cual seria el mensaje del error ?

    no hace falta una imagen, puede sponer solo la descripcion de lo que dice


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    jueves, 17 de mayo de 2012 14:20
  • si ahorita la agrego :

    desde ya gracias por la ayuda


    jueves, 17 de mayo de 2012 14:33
  • Saludos:

    Ocupo esta pequeña funcion para exportar a PDF:

     Public Sub Fg_ExportWithFormatOptions(ByVal NmbreArchvo As String, ByVal PgnaIni As Integer, ByVal PgnaFin As Integer, ByVal useRange As Boolean, ByVal DocRpt As Object)
            Dim Rpt_AExportar As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
            Dim exportOpts As ExportOptions = New ExportOptions()
            Dim pdfRtfWordOpts As PdfRtfWordFormatOptions = ExportOptions.CreatePdfRtfWordFormatOptions()
            Dim destinationOpts As DiskFileDestinationOptions = ExportOptions.CreateDiskFileDestinationOptions()
    
            Try
                Rpt_AExportar = TryCast(DocRpt, CrystalDecisions.CrystalReports.Engine.ReportDocument)
                pdfRtfWordOpts.FirstPageNumber = PgnaIni
                pdfRtfWordOpts.LastPageNumber = PgnaFin
                pdfRtfWordOpts.UsePageRange = useRange
                exportOpts.ExportFormatOptions = pdfRtfWordOpts
                exportOpts.ExportFormatType = ExportFormatType.PortableDocFormat
                destinationOpts.DiskFileName = NmbreArchvo
                exportOpts.ExportDestinationOptions = destinationOpts
                exportOpts.ExportDestinationType = ExportDestinationType.DiskFile
    
                Rpt_AExportar.Export(exportOpts)
    
            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Sub

    Para llamarla solo debes ser asi:

    Dim Dt_ExpArchvo As String = "C:\MiReport.Pdf"

    Dim Introduccion As New Report1   ' --> el archivo RPT

    Fg_ExportWithFormatOptions(Dt_ExpArchvo, 1, 1, False, Introduccion)

    Espero ayude.

    JOSE LUIS

    jueves, 17 de mayo de 2012 15:23
  • ok, en vase a tu codigo solo una pregunta como llenas el reporte con los datos?

    eso es lo que no veo, si me puedes explicar en base a mi codigo te lo agradeceria


    Hector Galindo Desarollador de software

    jueves, 17 de mayo de 2012 15:25