Buenos días:
Estoy haciendo una clase que imprima con la clase Printer del vb6, estoy encajando la parte de imprimir el cliente y de ahí la fecha. Debe encajar perfecto, la guía según cálculos desde donde dice "Cliente" hasta "Fecha" son aproximadamente
120 caracteres; es decir, SPACE(120).
Todo perfecto hasta ahí lo que hago es restar esos 120 espacios con el tamaño (Len) del cliente con su codigo para que así imprima bien encajado, este es mi código:
Dim cliente As String
Dim entreclifech As Integer
Dim espacio As Integer
cliente = Mid(Trim(RTrim(rs!CLICODIGO)) + " " + LTrim(RTrim(rs!nomcliente)), 1, 80)
entreclifech = Len(rs!CLICODIGO) + 1 + Len(rs!nomcliente)
espacio = 120 - entreclifech
Printer.Print Space(5) & cliente & Space(espacio) & rs!fecha
Si se pregunta por ese "+1" a la hora de setear la variable entreclifech solo ignorenlo, es una prueba que hice.
En fin, según los cálculos debería imprimir encajado pero lamentablemente no lo hace; es decir, la fecha con un cliente se imprime bien, pero con un segundo cliente con menos carácteres lo imprime un poco antes. Lo probé en SQL con Print y sale perfecto
(Si alguien tiene sql sería genial así lo prueba y entiende mas el caso):
PRINT SPACE(5) + '1944218 SANCHEZ PEÑA MARIA TRINIDAD' + SPACE(85) + 'FECHA'
PRINT SPACE(5) + '1661133 ORTEGA LORA RAÚL' + SPACE(96) + 'FECHA'
El 85 y el 96 es = 120 - (Len(Codigo) + Len(Cliente)) lo expliqué arriba.
Alguien podría ayudarme con este caso tan puntual? Por lo que veo es fácil de solucionar pero no tengo la idea de cuál sea la solución.
Espero sus respuestas
Saludos
