Access - imprimo directo de access pero no sale alineado

 
Vista:

imprimo directo de access pero no sale alineado

Publicado por Hugo Lopez (1 intervención) el 17/12/2004 13:17:27
hoal amigos estoy imprimiendo la bd en forma directa, pero no me sale bien me explico asi sale mas o menos

Arancivia Juan Oscar 22 222 22
Aranguiz Emiliano Antonio 22 222 22 ven

tendria que ser asi no
Arancivia Juan Oscar 22 222 22
Aranguiz Emiliano Antonio 22 222 22

como lo hago ayuda este es parte del codigo
Printer.CurrentY = TOP_MARGIN
Do While Not rs.EOF
' Use rs!FieldName to get the data for
' the field named FieldName.
Printer.CurrentX = LEFT_MARGIN
Printer.Print _
Format$(rs!nombre) & _
vbTab & _
Format$(rs!ficha) & _
vbTab & _
Format$(rs!dias) & _
vbTab & _
Format$(rs!diaspermi)
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Alejandro

Alinear correctamente los datos al imprimir desde una base de datos

Publicado por Alejandro (4142 intervenciones) el 20/05/2023 00:15:55
Para asegurarte de que los datos se impriman correctamente alineados, puedes utilizar la función `Space()` en VBA para agregar espacios en blanco a cada campo y así asegurar una alineación uniforme. Aquí te muestro un ejemplo de cómo puedes modificar tu código para lograrlo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Printer.CurrentY = TOP_MARGIN
Do While Not rs.EOF
    ' Use rs!FieldName to get the data for
    ' the field named FieldName.
    Printer.CurrentX = LEFT_MARGIN
    Printer.Print _
    Format$(rs!nombre) & _
    Space(30 - Len(Format$(rs!nombre))) & _
    vbTab & _
    Format$(rs!ficha) & _
    Space(10 - Len(Format$(rs!ficha))) & _
    vbTab & _
    Format$(rs!dias) & _
    Space(5 - Len(Format$(rs!dias))) & _
    vbTab & _
    Format$(rs!diaspermi)
 
    rs.MoveNext
Loop

En este ejemplo, se utiliza la función `Space()` para agregar espacios en blanco después de cada campo, de manera que cada campo tenga una longitud fija. Ajusta los valores (30, 10 y 5) según tus necesidades para lograr la alineación deseada. Asegúrate de que los valores sumados sean mayores o iguales a la longitud máxima de cada campo.

Esto debería ayudarte a lograr una alineación adecuada al imprimir los datos desde tu base de datos en Access. ¡Espero que esto resuelva tu problema!
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar