Estoy generando un Pdf con iTextSharp en VisualBasic, el problema que tengo es al generar el encabezado del Pdf, ya que no logro que se muestre correctamente el RowSpan.
La estructura que quiero generar sobre la tabla es la siguiente:
Pero me está saliendo de la siguiente forma:
Por lo que entiendo el rowspan de la columna 1 y 2 que los tengo con Rowspan=3 no está siendo respetado.
El código es el siguiente:
Imports System.Data.SqlClient
Imports System.Data
Imports iTextSharp.text.pdf
Imports iTextSharp.text
Imports System.Windows.Forms
Imports System.IO
Dim fuenteTitulo1 = FontFactory.GetFont(FontFactory.HELVETICA_BOLD, 12)
Dim fuenteEncabezado = FontFactory.GetFont(FontFactory.HELVETICA_BOLD, 9)
Dim fuentefilas = FontFactory.GetFont(FontFactory.HELVETICA, 9)
Dim titulo As New iTextSharp.text.Paragraph(New Chunk("Bajas de Personal ", fuenteTitulo1))
titulo.Alignment = 1
Dim subTitulo As New iTextSharp.text.Paragraph(New Chunk("Subtitulo", fuenteEncabezado))
subTitulo.Alignment = 1
'Crea tabla
Dim table As New PdfPTable(DatosGridViewPrintLayout.Columns.Count)
table.HeaderRows = 1
table.WidthPercentage = 100
Dim cell1 As New PdfPCell(New Phrase(New Chunk(Server.HtmlDecode("LOGO<br/>\n"), fuentefilas)))
cell1.Colspan = 3
cell1.Rowspan = 3
Dim c2 As Chunk = New Chunk(vbCrLf)
Dim c As New Phrase(New Chunk("Nombre: Desvinculación Laboral", fuentefilas))
c.Add(c2)
c.Add(New Chunk("Nombre: Desvinculación Laboral", fuentefilas))
Dim cell2 As New PdfPCell(c)
cell2.Colspan = 6
cell2.Rowspan = 3
Dim cell3 As New PdfPCell(New Phrase(New Chunk(Server.HtmlDecode("Código:"), fuentefilas)))
cell3.Colspan = 3
cell3.Rowspan = 1
Dim cell4 As New PdfPCell(New Phrase(New Chunk(Server.HtmlDecode("RRH-INS-003"), fuentefilas)))
cell4.Colspan = 3
cell4.Rowspan = 1
Dim cell5 As New PdfPCell(New Phrase(New Chunk(Server.HtmlDecode("Versión:"), fuentefilas)))
cell5.Colspan = 3
cell5.Rowspan = 1
Dim cell6 As New PdfPCell(New Phrase(New Chunk(Server.HtmlDecode("04"), fuentefilas)))
cell6.Colspan = 3
cell6.Rowspan = 1
Dim cell7 As New PdfPCell(New Phrase(New Chunk(Server.HtmlDecode("Fecha de Emisión:"), fuentefilas)))
cell7.Colspan = 3
cell7.Rowspan = 1
Dim cell8 As New PdfPCell(New Phrase(New Chunk(Server.HtmlDecode("26/02/2019"), fuentefilas)))
cell8.Colspan = 3
cell8.Rowspan = 1
table.AddCell(cell1)
table.AddCell(cell2)
table.AddCell(cell3)
table.AddCell(cell4)
table.AddCell(cell5)
table.AddCell(cell6)
table.AddCell(cell7)
table.AddCell(cell8)
'Create the PDF Document
Dim pdfDoc As New Document(PageSize.LEGAL.Rotate, 5.0F, 5.0F, 10.0F, 0.0F)
PdfWriter.GetInstance(pdfDoc, Response.OutputStream)
pdfDoc.Open()
pdfDoc.Add(titulo)
pdfDoc.Add(New iTextSharp.text.Paragraph(" "))
pdfDoc.Add(subTitulo)
pdfDoc.Add(New iTextSharp.text.Paragraph(" "))
pdfDoc.Add(table)
pdfDoc.Close()
Response.ContentType = "application/pdf"
Response.AddHeader("content-disposition", _
"attachment;filename=GridViewExport.pdf")
Response.Cache.SetCacheability(HttpCacheability.NoCache)
Response.Write(pdfDoc)
Response.End()
La version que tengo de iTextSharp es:
Si alguien puede ayudarme a mostrar correctamente el RowSpan del encabezado, muy agradecido.