Hola.
Cuando hablo de salto de linea no me referia al papel. sino a la forma de imprimir.
si voy a imprimir uno o varios codigos de escape lo escrivo asi:
Incl( 0, sP1, Chr(27)+ Chr(33)+ Chr(8)); // Doble alto - Off
Incl( 0, sP1, Chr(27)+ Chr(69)+ Chr(0)); // Negrita - Off
Incl( 0, sP1, Chr(27)+ Chr(77)+ Chr(1)); // Comprimida On (Samsung)
... procesa los tres codigos y no mueve ni el cabezal, ni el papel. En cambio si deseo imprimir:
Incl( 1, sP1, 'Sub-Total....: ' + Justifica( Picture(SoloNumeros(FloatToStr (iTotal),nDecimal)), 'D', 10 )+'.-');
Incl( 1, sP1, 'Descuento....: ' +
Justifica( Picture(SoloNumeros(FloatToStr(itDescto),0)), 'D', 10 )+'.-');
Incl( 1, sP1, 'Total........: ' + Justifica( Picture(SoloNumeros(FloatToStr(iTotal),0)), 'D', 10 )+'.-');
Incl( 1, sP1, ' * * * ' );
Incl( 1, sP1, 'COMPROBANTE VALIDO SOLO PARA USO INTERNO' );
Incl( 1, sP1, 'NO VALIDO PARA RETIRO DE MERCADERIA.' );
Incl( 1, sP1, ' * ' );
imprime y salta, para imprimir la siguiente linea.
Saludos
Jose Miguel B.
|