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


ir al índice