16/02/2015, 19:05
|
| | | Fecha de Ingreso: noviembre-2002 Ubicación: DF
Mensajes: 1.056
Antigüedad: 22 años, 1 mes Puntos: 37 | |
| Respuesta: ITextSharp Lineas Escritas en Archivo PDF
Creando una tabla y celdas:
Dim pdfTablaCadenaSello As New PdfPTable(1)
Dim arrAnchosColumna2 As Single() = {460.0F} 'PageSize.LETTER.Width
'Dim arrAnchosColumna As Single() = {60.0F, 335.0F, 68.0F, 68.0F}
pdfTablaCadenaSello.SetTotalWidth(arrAnchosColumna 2)
pdfTablaCadenaSello.SpacingBefore = 15.0F 'Give some space after the text or it may overlap the table
PdfPCell = New PdfPCell(New Phrase(New Chunk("Sello digital del CFDI: " & selloCFD, font8)))
pdfTablaCadenaSello.AddCell(PdfPCell)
PdfPCell = New PdfPCell(New Phrase(New Chunk("Sello digital del SAT: " & selloSAT, font8)))
pdfTablaCadenaSello.AddCell(PdfPCell)
PdfPCell = New PdfPCell(New Phrase(New Chunk("Cadena original del complemento de certificacion del SAT: " & cadenaOriginalTimbrado, font8)))
pdfTablaCadenaSello.AddCell(PdfPCell)
' define la posicion a donde se imprimiran los datos cadena y sello
' rowstart, rowend, xpos, ypos
pdfTablaCadenaSello.WriteSelectedRows(0, -1, 130, 110, pdfContentByte) |