none
Exportar datagirview a pdf RRS feed

  • Debate general

  • Buenos dias al foro, esta es la primera vez que intento sacar un reporte en pdf , ya paso el datagridview y algunos texbox , lo que estoy queriendo es poder ordenar la cabezaras ,hacer que se muestren etiquetasy un pie de pagina ,hacer que la tabla baje un poc mas ahora la genero con este query
    Dim datatable As New PdfPTable(dgvcrono.ColumnCount)
            'Se asignan algunas propiedades para el diseño del PDF.
            datatable.DefaultCell.Padding = 3
            'Dim headerwidths As Single() = GetColumnasSize()
            'datatable.SetWidths(headerwidths)
            datatable.WidthPercentage = 75
            datatable.DefaultCell.BorderWidth = 1.5
            datatable.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER
            'Se crea el encabezado en el PDF.  
            Dim encabezado As New Paragraph("Reporte", New Font(Font.Name = "Tahoma", 20, Font.Bold))
            encabezado.Alignment = Element.ALIGN_CENTER
            'Se crea el texto abajo del encabezado.
            Dim texto As New Paragraph(txtcodofin.Text, New Font(Font.Name = "Tahoma", 14, Font.Bold))
            texto.Alignment = Element.ALIGN_JUSTIFIED
            Dim texto1 As New Paragraph(TXTSOCIO.Text, New Font(Font.Name = "Tahoma", 14, Font.Bold))
            'Se capturan los nombres de las columnas del DataGridView.
            'Se capturan los nombres de las columnas del DataGridView.
            For i As Integer = 0 To dgvcrono.ColumnCount - 1
                datatable.AddCell(dgvcrono.Columns(i).HeaderText)
            Next
            datatable.HeaderRows = 1
            datatable.DefaultCell.BorderWidth = 1
            For i As Integer = 0 To dgvcrono.Rows.Count - 1
                For j As Integer = 0 To dgvcrono.Columns.Count - 1
                    datatable.AddCell((dgvcrono(j, i).Value).ToString)
                Next
                datatable.CompleteRow()
    
            Next
            'da 2 tab entre columnas
            datatable.AddCell("")
            datatable.AddCell("")
            datatable.AddCell("")
            'imprime resultados
            datatable.AddCell(dgvcrono(2, 6).Value)
            datatable.AddCell(dgvcrono(3, 6).Value)
            datatable.CompleteRow()
            'Se agrega etiquetas
            document.Add(encabezado)
            document.Add(texto)
            document.Add(texto1)
            document.Add(datatable)


    lutermick

    jueves, 20 de junio de 2013 17:51