La colaboración de Antonio E. López
(Incluída en las colaboraciones el 23/Feb/97)
Lo que nos dice Antonio sobre la
rutina:
Este truco lo he hecho para VB4 y parece que no funciona en VB3
porque lo envié a un par de amigos y no les iba.
No sé si está bien hecho, lo que si sé es que funciona y a
falta de algo mejor, pues ya está bien.
Public Sub PrnTB(oForm As Form, nY As Integer, nX As Integer, nFin As Integer) 'Antonio E. lopez '[email protected] ' ' Imprime un texbox de mas de 80 caracteres ' oForm = Formulario origen ' nY, nX = Coordenadas de inicio de impresion ' nFin = columna ultima de impresion Dim sBloque As String 'Bloque a imprimir Dim nCont As Integer 'Contador Dim nCaracter As Integer 'numero de caracteres en bloque ' For nCont = 0 To Len(oForm.txtComentario.Text) oForm.txtComentario.SelStart = (1 * nCont) oForm.txtComentario.SelLength = 1 If oForm.txtComentario.SelText = " " And nCaracter >= nFin Or nCont = Len(oForm.txtComentario.Text) Then Printer.CurrentY = nY 'Fila Printer.CurrentX = nX 'Columna Printer.Print sBloque sBloque = "" nY = nY + 5 'Incremento la fila en 5 milimetros nCaracter = 0 'reinicio el contador de caracteres por bloque End If sBloque = sBloque & oForm.txtComentario.SelText nCaracter = nCaracter + 1 'hasta 80 caracteres Next nCont ' End Sub