15/12/2010, 08:40
|
| | | Fecha de Ingreso: diciembre-2010
Mensajes: 6
Antigüedad: 14 años Puntos: 0 | |
| Respuesta: Ayuda con Librería iTextSharp
wwwmaster, gracias por el consejo =)
la parte del codigo es la siguiente:
If Len(descripcion) > 77 Then
'Agrego texto mediante ShowTextAligned
Dim columnConcepto As ColumnText = New ColumnText(cb)
columnConcepto.SetSimpleColumn(PosX + 174, PosSigY, 460, 0)
Dim pConcepto As Paragraph = New Paragraph(0, descripcion, myFontConcepto)
columnConcepto.AddText(pConcepto)
columnConcepto.Go()
Else
'Agrego texto mediante ShowTextAligned
cb.ShowTextAligned(PdfContentByte.ALIGN_LEFT, descripcion, PosX + 174, PosSigY, 0)
End If
Valido si la descripcion cuenta con mas de 77 caracteres ya que si cuenta con mas de tendre que poner el texto en 2 renglones, para eso uso ColumnText en lugar de ShowTextAligned
Yo le paso x num. de descripciones el detalle esta en que el momento que entra a crear una columna y luego entra a ShowTextAligned el texto que agrege mediante ShowTextAligned ya no lo muestra ;S |