none
Dos Tablas Horizontales en PDF con Itextsharp RRS feed

  • Pregunta

  • Buenas Tardes, 

    Hoy vengo con una duda puntual, estoy realizando  un archivo en PDF, unos de los datos que voy a mostrar no se cuantos registros pueda tener, puede variar desde 0 hasta 10, entonces he decidido presentar dos tablas la primera mostraría de 1 a 5 registros, la segunda de 6 a 10, 

    Tabla = New iTextSharp.text.pdf.PdfPTable(3)
    Tabla.HorizontalAlignment = iTextSharp.text.Element.ALIGN_LEFT
    Tabla.WidthPercentage = 45.0!
    Tabla.SetWidths(New Single() {45.0!, 30.0!, 25.0!})
    
    Dim Celda4 As iTextSharp.text.pdf.PdfPCell = New PdfPCell(New Phrase("Cobros", iTextSharp.text.FontFactory.GetFont(iTextSharp.text.FontFactory.HELVETICA, 10, iTextSharp.text.Color.BLACK)))
    
    Dim Celda5 As iTextSharp.text.pdf.PdfPCell = New PdfPCell(New Phrase("Vlr Cuota", iTextSharp.text.FontFactory.GetFont(iTextSharp.text.FontFactory.HELVETICA, 10, iTextSharp.text.Color.BLACK)))
    
    Dim Celda6 As iTextSharp.text.pdf.PdfPCell = New PdfPCell(New Phrase("Saldo", iTextSharp.text.FontFactory.GetFont(iTextSharp.text.FontFactory.HELVETICA, 10, iTextSharp.text.Color.BLACK)))
    
    Tabla.AddCell(Celda4)
    Tabla.AddCell(Celda5)
    Tabla.AddCell(Celda6)        
    
    Dim columnCount2 As Integer = dtDetalle.Columns.Count
    Dim rowCount2 As Integer = dtDetalle.Rows.Count
    
    For rowCounter As Integer = 0 To rowCount2 - 1
             For columnCounter As Integer = 0 To columnCount2 - 1
    Tabla.AddCell(New Phrase(HttpUtility.HtmlDecode(dtDetalle.Rows(rowCounter)(columnCounter).ToString()), iTextSharp.text.FontFactory.GetFont(iTextSharp.text.FontFactory.HELVETICA, 10, iTextSharp.text.Color.BLACK)))
                    Next
            Next        
                reporte.Add(Tabla)

    La idea es que si son mas de 5 registros al lado derecho de la primera tabla, mostrar los otros, y este es el inconveniente porque no he podido alinear la otra tabla  a la derecha de esta.

    Muchas Gracias por la ayuda


    • Editado Dunk1947 lunes, 21 de octubre de 2013 22:50
    lunes, 21 de octubre de 2013 22:49