ayuda pls!
Publicado por mariel (78 intervenciones) el 29/08/2005 00:32:40
Hola buen dia, a ver si alguen puede ayudarme a solucionar esto:
este listado me sale por pantalla y por supuesto despues por impresora, y no lo quiero asi, quiero que quede encolumnado,
necesto que me salga encolumado, ya que si el nombre o la direccion es mas chica corre el siguiente dato
LISTADO ALFABETICO Fecha Sábado, 3 Septiembre 2005
-----------------------------------------------------------------------------------------------------------------------------
Nº Nombre y apellido Dirección Teléfono
Abranchuk Abranchuk 25 de Mayo 735 4846277
Aguilar Aguilar J.J. Passo 641 4846073
Aguilar Aguilar Dean Funes 106 4846769
Ahumada Ahumada Primera Junta 128 4846539
probe con :
Text5.Text = Text5.Text & vbCrLf
Text5.Text = Text5.Text + pacientes.Recordset.Fields("papellido") & ""
Text5.Text = Text5.Text + Chr(32) + pacientes.Recordset.Fields("papellido")
y tambien con este
Text1.Text = Text1.Text + vbCrLf + Left(Trim(nombre),50) + Space(50 - Len(Left(Trim(nombre),50)))
y ninguno funciona, este ultimo me llama mas la atencion, ya que le estoy dicendo exactamente donde listar, es decir en que columna, con la diferencia del LEN y el numero 50 y tampoco funciona.
alguien puede ayudarme por favor!
este listado me sale por pantalla y por supuesto despues por impresora, y no lo quiero asi, quiero que quede encolumnado,
necesto que me salga encolumado, ya que si el nombre o la direccion es mas chica corre el siguiente dato
LISTADO ALFABETICO Fecha Sábado, 3 Septiembre 2005
-----------------------------------------------------------------------------------------------------------------------------
Nº Nombre y apellido Dirección Teléfono
Abranchuk Abranchuk 25 de Mayo 735 4846277
Aguilar Aguilar J.J. Passo 641 4846073
Aguilar Aguilar Dean Funes 106 4846769
Ahumada Ahumada Primera Junta 128 4846539
probe con :
Text5.Text = Text5.Text & vbCrLf
Text5.Text = Text5.Text + pacientes.Recordset.Fields("papellido") & ""
Text5.Text = Text5.Text + Chr(32) + pacientes.Recordset.Fields("papellido")
y tambien con este
Text1.Text = Text1.Text + vbCrLf + Left(Trim(nombre),50) + Space(50 - Len(Left(Trim(nombre),50)))
y ninguno funciona, este ultimo me llama mas la atencion, ya que le estoy dicendo exactamente donde listar, es decir en que columna, con la diferencia del LEN y el numero 50 y tampoco funciona.
alguien puede ayudarme por favor!
Valora esta pregunta
0