Hola, Saludo
Tengo este codigo que me funciona un 99%
Dim cadena As String = txtNombre.Text
Dim parte1 As String
Dim parte2 As String
If cadena.Length > 75 Then
parte1 = cadena.Substring(0, 75)
parte2 = cadena.Substring(75)
'pone cada parte para imprimir
e.Graphics.DrawString(parte1, prFont, Brushes.Black, 28, 127)
e.Graphics.DrawString(parte2, prFont, Brushes.Black, 28, 142)
Else
'aqui pone la linea completa si es menor de 75 caracteres para imprimir
e.Graphics.DrawString(txtNombre.Text, prFont, Brushes.Black, 28, 127)
End If
Solo hay un problema, en el caracter 75 me parte la palabra bruscamente
lo correcto seria que la dividiera cuando encuentre un espacio entre palabras, proximo a los 75 caracteres
Mostrar Mensajes
