SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: irma3030 en Jueves 15 de Abril de 2004, 19:43

Título: Justificacion De Texto
Publicado por: irma3030 en Jueves 15 de Abril de 2004, 19:43
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.
Título: Re: Justificacion De Texto
Publicado por: Brroz en Lunes 19 de Abril de 2004, 09:27
Hola irma3030.

Prueba este código en un form con un TextBox (Text1) con la propiedad Multiline = True y un CommandButton. Supongo que puedes adaptarlo a tus necesidades...

Código: Text
  1.  
  2. Private Sub Command1_Click()
  3.     Dim var1 As Variant
  4.     Dim str1 As String
  5.     str1 = Text1.Text
  6.     var1 = Split(str1, Chr(32))
  7.     Dim int1 As Integer, ind1 As Boolean
  8.     str1 = ""
  9.     For int1 = 0 To UBound(var1)
  10.         If Printer.ScaleWidth >= Printer.TextWidth(str1 & var1(int1) & " ") Then
  11.             str1 = str1 & var1(int1) & " "
  12.         Else
  13.             ind1 = True
  14.         End If
  15.         If ind1 Then
  16.             Printer.Print str1
  17.             str1 = var1(int1) & " "
  18.             ind1 = False
  19.         End If
  20.     Next int1
  21.     Printer.EndDoc
  22. End Sub
  23.  
  24.  

Suerte.