Hola:
Alguien me puede ayudar a complementar este codigo:
Dim just, mitad As Integer
just = Len(Text17.Text)
res = just Mod 2
If res = 1 Then
mitad = Int(just / 2)
izq = Left(Text17.Text, mitad)
der = Right(Text17.Text, mitad + 1)
End If
If res = 0 Then
mitad = Int(just / 2)
izq = Left(Text17.Text, mitad)
der = Right(Text17.Text, mitad)
End If
PosXY 7.11, 20.98
Printer.Print izq
PosXY 7.11, 21.48
Printer.Print der
Bien aqui imprime el texto pero lo imprime truncada la palabra, por ejemplo:
“Esto es una prueba del problema que t
engo y asi se imprime”
y yo requiero que se imprima de la siguiente manera :
“Esto es una prueba del problema que tengo
y asi se imprime”
Osea que imprima la palabra completa pero no se como hacerle
De antemano muchas gracias por su apoyo a todos que hacen posible este foro,
aportando sus conocimientos, hacia todos nosotros que necesitamos de su ayuda.
