none
EXPORTAr DATOS DE UN DGV A UN PDF!! AYUDA! RRS feed

  • Pregunta

  • Alguien podria ayudarme con esto?

    tengo un datagridview llamado DGV conformado por 7 columnas

    Como debo hacerlo? he visto diferentes codigos pero ninguno me funciona!

    lunes, 28 de septiembre de 2015 16:12

Respuestas

  • Aquí tienes un ejemplo de como hacerlo con iTextSharp.

    Saludos, Javier J

    lunes, 28 de septiembre de 2015 16:50
  • Saludos:

    Lo que yo hago es crear un reporte con Crystal Reports y despues crear el PDF desde el reporte.

    Despues de creado el reporte, puedes usar esta funcion:

     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

    Espero ayude.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    lunes, 28 de septiembre de 2015 16:50

Todas las respuestas

  • Aquí tienes un ejemplo de como hacerlo con iTextSharp.

    Saludos, Javier J

    lunes, 28 de septiembre de 2015 16:50
  • Saludos:

    Lo que yo hago es crear un reporte con Crystal Reports y despues crear el PDF desde el reporte.

    Despues de creado el reporte, puedes usar esta funcion:

     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

    Espero ayude.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    lunes, 28 de septiembre de 2015 16:50