none
Funcion Space consulta RRS feed

  • Pregunta

  • 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

    jueves, 19 de febrero de 2015 16:06

Respuestas

  • Hola,

    Tal vez esto te sirva:

    Dim Linea As String

    Linea = Left$(Space(5) & Trim$(rs!CLICODIGO) & " " & Trim$(rs!nomcliente) & Space(120) , 120) & rs!fecha
    Printer
    .Print Linea


    Victor Koch

    • Marcado como respuesta Josue P. Corzo jueves, 19 de febrero de 2015 22:14
    jueves, 19 de febrero de 2015 17:18

Todas las respuestas