Ver Mensaje Individual
  #1 (permalink)  
Antiguo 17/07/2011, 02:56
chivass
 
Fecha de Ingreso: julio-2011
Mensajes: 8
Antigüedad: 13 años, 8 meses
Puntos: 0
Que codigo tengo que cambiar para imprimir textbox

Uso visual basic 6, estoy tratando de imprimir varios textbox aqui les dejo el codigo para que revisen que esta mal, porque se me esta imprimiendo 2 veces el primer textbox y se junta con el segundo. que es lo que se cambia??

Código:
Private Sub cmdprint_Click()
Dim CantLineas As Single
Dim Lineas(100) As String
CantLineas = 1
For asd = 1 To Len(txtnombre.Text)
If Mid(txtnombre.Text, asd, 1) = Chr(13) Then
asd = asd + 1
CantLineas = CantLineas + 1
Else
Lineas(CantLineas) = Lineas(CantLineas) & Mid(txtnombre.Text, asd, 1)
End If
Next
For asd = 1 To CantLineas
Printer.CurrentY = 300
Printer.CurrentX = 100
Printer.Print Lineas(asd)

Next

CantLineas = 1
For asd = 1 To Len(txtdireccion.Text)
If Mid(txtdireccion.Text, asd, 1) = Chr(13) Then
asd = asd + 1
CantLineas = CantLineas + 1
Else
Lineas(CantLineas) = Lineas(CantLineas) & Mid(txtdireccion.Text, asd, 1)
End If
Next
For asd = 1 To CantLineas
Printer.CurrentY = 600
Printer.CurrentX = 100
Printer.Print Lineas(asd)

Next
Printer.EndDoc
End Sub