secuencias de escape para imprimir un recibo
Publicado por juan carlos jocop (3 intervenciones) el 16/09/2002 20:54:03
Adjunto encontraran el codigo en donde se quiere manejar el salto de la impresion para un recibo de tamaño 8.5" x 8.5", mas pequeño que una hoja carta. Por lo tanto agradecere mucho la informacion sobre la manera de manejar los saltos en VFP.
****Codigo****
archivo="hola4.txt"
SET alternate TO &archivo
SET alternate ON
SET heading ON
SET console OFF
for i = 1 to 4
? chr(27)+chr(77)
? chr(27)+chr(67)+chr(25)
? " REQUERIMIENTO No.", i, "REQUERMIENTO","REQUERMIENTO","REQUERMIENTO"
FOR J = 1 TO 50
? SPACE(10),'LINEA ',J
NEXT
? CHR(12)
endfor
SET alternate OFF
SET heading OFF
SET console ON
CLOSE ALTERNATE
! TYPE HOLA4.TXT > LPT1
****Codigo****
archivo="hola4.txt"
SET alternate TO &archivo
SET alternate ON
SET heading ON
SET console OFF
for i = 1 to 4
? chr(27)+chr(77)
? chr(27)+chr(67)+chr(25)
? " REQUERIMIENTO No.", i, "REQUERMIENTO","REQUERMIENTO","REQUERMIENTO"
FOR J = 1 TO 50
? SPACE(10),'LINEA ',J
NEXT
? CHR(12)
endfor
SET alternate OFF
SET heading OFF
SET console ON
CLOSE ALTERNATE
! TYPE HOLA4.TXT > LPT1
Valora esta pregunta


0