Impresión de una celda multilinea

[Angeli]

Hola!. He utilizado el código dado por Silvestre para imprimir un mshflexgrid y lo he adaptado a mis necesidades, pues está muy bien, pero cuando la celda es multilínea imprime la primera línea y el resto las coloca en la parte izquierda de la hoja, fuera del rango de celdas. Aunque llevo varios días intentandolo, no consigo dar con la respuesta correcta. Agradecería me ayuden. Saludos

[gasafonso]

Una Forma que yo uso y esta buena, es con esta funcion el cual en "Qcontrol" es un textbox donde pones la cantidad de lineas que queres imprimir

Código vb:

Private Sub ImprimirPorLinea(qControl As TextBox)
    Dim i As Long, k As Long
    Dim L1 As Long, L2 As Long
    Const EM_GETLINECOUNT = &HBA
    Const EM_LINEFROMCHAR = &HC9
    Const EM_LINELENGTH = &HC1
    Const EM_LINEINDEX = &HBB
 
    ' Obtenemos el Número de líneas del TextBox
    k = SendMessage(qControl.hwnd, EM_GETLINECOUNT, 0, 0&)
   txtRenglones.text = k
    Printer.Print ""
    For i = k - Val(txtRenglones) To k - 1
        L1 = SendMessage(qControl.hwnd, EM_LINEINDEX, i, 0&) + 1
        L2 = SendMessage(qControl.hwnd, EM_LINELENGTH, L1, 0&)
        Printer.Print Mid$(qControl.text, L1, L2)
    Next
    Printer.EndDoc
End Sub
 

abrazo

[Angeli]

Iniciado por gasafonso

Una Forma que yo uso y esta buena, es con esta funcion el cual en "Qcontrol" es un textbox donde pones la cantidad de lineas que queres imprimir

Código vb:

Private Sub ImprimirPorLinea(qControl As TextBox)
    Dim i As Long, k As Long
    Dim L1 As Long, L2 As Long
    Const EM_GETLINECOUNT = &HBA
    Const EM_LINEFROMCHAR = &HC9
    Const EM_LINELENGTH = &HC1
    Const EM_LINEINDEX = &HBB
 
    ' Obtenemos el Número de líneas del TextBox
    k = SendMessage(qControl.hwnd, EM_GETLINECOUNT, 0, 0&)
   txtRenglones.text = k
    Printer.Print ""
    For i = k - Val(txtRenglones) To k - 1
        L1 = SendMessage(qControl.hwnd, EM_LINEINDEX, i, 0&) + 1
        L2 = SendMessage(qControl.hwnd, EM_LINELENGTH, L1, 0&)
        Printer.Print Mid$(qControl.text, L1, L2)
    Next
    Printer.EndDoc
End Sub
 

abrazo

Gracias Gasafonso, voy a probarlo. Angeli

[Angeli]

He probado el código que me dejaste, y me da error en la línea:
mid$(qControl.text, L1, L2)
Depurándolo el Sendmessage devuelve 0 para L1, y creo que por ello la instrucción mid$ da error. He probado cambiándolo a 1 pero el texto de cada renglón no es correcto.
Te ruego me indiques donde puede estar el fallo. Gracias

[pkj]

Es que la sub tiene algunos fallos, como incluir un textbox que no existe y luego restando k-val(k) en lugar de poner simplemente 0.
Tambien tienes que tener en cuenta que lo que espera la funcion es un textbox, de modo que si le mandas una celda de una grilla puede no servir.

De todas formas esta función hace lo contrario de lo que tu buscas porque lo que imprime es un textbox tal cual se muestra en la ventana, con tantas lineas como muestre el textbox.

Esta debería ser la sub correcta. Que me corrijan si me equivoco.

Código vb:

Private Sub ImprimirPorLinea(qControl As TextBox)
    Dim i As Long, k As Long
    Dim L1 As Long, L2 As Long
    Const EM_GETLINECOUNT = &HBA
    Const EM_LINEFROMCHAR = &HC9
    Const EM_LINELENGTH = &HC1
    Const EM_LINEINDEX = &HBB
 
    ' Obtenemos el Número de líneas del TextBox
    k = SendMessage(qControl.hwnd, EM_GETLINECOUNT, 0, 0&)
    Printer.Print ""
    For i = 0 To k - 1
        L1 = SendMessage(qControl.hwnd, EM_LINEINDEX, i, 0&) + 1
        L2 = SendMessage(qControl.hwnd, EM_LINELENGTH, L1, 0&)
        Printer.Print Mid$(qControl.Text, L1, L2)
    Next
    Printer.EndDoc
End Sub
 

Se usaría así:
ImprimirPorLinea Text1


Lo que tu necesitarías sería quitar los saltos de línea. Para eso quizá te valga con reemplazar los saltos de línea por espacios:

Suponiendo que tienes el texto a imprimir en una variable llamada Texto, sería:

Printer.print Replace(Texto, vbcrlf, " ")

Saludos

[gasafonso]

Si , perdon se llama

call imprimirporlinea (text1)

y en txtRenglones vos pones la cantidad de renglones que queres imprimir


abrazo