Susana
06 de Mayo del 2006

Hola Alberto. Tengo una gran duda sobre Visual Basic 6.0
No se cómo imprimir el contenido de las cajas de testo en Visual. Tengo que entregar un proyecto esta semana y he buscado codigo pero no logro encontrar el apropiado para darle solucion a mi problema ¿podrias ayudarme? solo logre encontrar el siguiente codigo:
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

Private Sub Command1_Click()
Call ImprimirPorLinea(Text1)
End Sub

Pero mi gran obstaculo esque NO lo entiendo y se que me ayudara mucho.
Gracias, y espero tu respuesta.

LLE
06 de Mayo del 2006

Hola no probé el codigo porque no tengo impresora, pero lo que debes hacer es pasarle como paametro el textbox. SendMessage lo que hace es desglozar el textbox por linea y lo manda a la impresora por lo que estube viendo, aunque esto mismo se puede hace sin usar SendMessage con la funcion Split. En conclusion pasale el textbox como parametro y probá

saludos

www.recursosvisualbasic.com.ar