| Pregunta: | 10273 - IMPRIMIR UN TEXTBOX MULTILINEA |
| Autor: | Vicente Perez |
| Como puedo imprimir una a una las lineas que esten capturadas en un control TextBox que tiene la propiedad multile en True
Gracias por su ayuda | |
| Respuesta: | jmbujias |
| hola amigo vicente:
te mando un codigo de ejemplo. Solo necesitas poner en un formulario un botton y un textbox. El codigo lo pones en el evento click del boton y yas tá. Tienes que tener en cuenta que para que el codigo te reconozca la nueva linea tienes que pasar a la nueva linea del textbox con la tecla enter. si dejas que el control text lo haga automaticamente. El codigo lo interpretara como una sola linea. Esparo que te sea de ayuda. Adios y hasta otra.(al control textbox dale a la propiedad name=texto). Private Sub Command1_Click() Dim LINEATEXTO As String Dim POSICION As Integer POSICION = 1 Do While InStr(POSICION, TEXTO, Chr(13)) DoEvents LINEATEXTO = Mid(TEXTO, POSICION, InStr(POSICION, TEXTO, Chr(13)) - POSICION) Printer.Print LINEATEXTO POSICION = POSICION + Len(LINEATEXTO) + 2 Loop If POSICION < Len(TEXTO) Then Printer.Print Right(Form1.TEXTO, Len(Form1.TEXTO) - POSICION) Printer.EndDoc End Sub | |