none
exportar pdf RRS feed

  • Pregunta

  • hola

    estoy trabajando en una aplicacion de listas de asistencia que me permite exportar a pdf desde visual basic .net, pero lo que ahora quiero es que cuando haya ana persona de mi lista que cheque despues de las 9 me lo resalte solo ese dato. lo puedo hacer en datagridview pero yo lo quiero cuando lo exporte a pdf.

    esto es lo que tengo me urge porfa:

    Public Sub ExportarDatosPDF(ByVal document As Document)
            'Se crea un Objeto PDF Table con el numero de columnas del DtGdV 
            Dim dataTable As New PdfPTable(DataGridView1.ColumnCount)
            'Se asignan Propiedades 
            dataTable.DefaultCell.Padding = 3
            Dim headerwidths As Single() = GetColumSize(DataGridView1)
            dataTable.SetWidths(headerwidths)
            dataTable.WidthPercentage = 100
            dataTable.DefaultCell.BorderWidth = 2
            dataTable.DefaultCell.HorizontalAlignment = Element.ALIGN_CENTER

            'Se crea el encabezado en el PDF. 
            Dim Title As Paragraph = New Paragraph(ComboBox1.Text, New Font(Font.Name = "Tahoma", 13, Font.Bold))
            Title.Alignment = Element.ALIGN_CENTER
            document.Add(Title)
            Dim Fechas As Paragraph = New Paragraph(DateTimePicker1.Value.Date + " " + "-/-" + " " + DateTimePicker2.Value.Date, New Font(Font.Name = "Tahoma", 11, Font.Bold))
            Fechas.Alignment = Element.ALIGN_CENTER
            document.Add(Fechas)
            Dim XPACIO As Paragraph = New Paragraph("--", New Font(Font.Name = "Tahoma", 11, Font.Bold))
            XPACIO.Alignment = Element.ALIGN_CENTER
            document.Add(XPACIO)
            'Se capturan los nombres de las columnas del DataGridView. 
            For i As Integer = 0 To DataGridView1.ColumnCount - 1
                dataTable.AddCell(DataGridView1.Columns(i).HeaderText) ''''' texto de la cabecera

            Next
            dataTable.HeaderRows = 1    ''''''filas de cabecera
            dataTable.DefaultCell.BorderWidth = 1   '''''ancho del borde
            'Se generan las columnas del DataGridView. 
            For i As Integer = 0 To DataGridView1.RowCount - 2
                For j As Integer = 0 To DataGridView1.ColumnCount - 1
                    'dataTable.AddCell(DataGridView1(j, i).Value.ToString()) ''aÑADE CADA CLUMNA DEL GRID

                    dataTable.AddCell(Replace(DataGridView1(j, i).Value.ToString(), "30/12/1899", ""))
                Next
                    dataTable.CompleteRow()
                Next

            If DataGridView1.RowCount = 0 Then
                
            Else
                For Each row As DataGridViewRow In DataGridView1.Rows
                    'string codigo = Convert.ToString(row.Cells["Codigo"].Value);
                Next

            End If

    miércoles, 29 de junio de 2016 18:12

Respuestas

  • Hola alacrancita

    Gracias por consultar los foros. Te sugiero que hagas uso de iTextSharp, esta útil herramienta te ayudará a generar el reporte pdf, adjunto el enlace espero sea de utilidad, estoy atento a tus comentarios.

    iTextSharp, a .NET PDF library

    Saludos
    José
    __________________________________________________________________________________________
    Por favor, recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, hace que sea más fácil para los otros visitantes encontrar la solución más tarde. Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    viernes, 1 de julio de 2016 15:29
    Moderador