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