Forums Últimos mensajes - Powered by IBM
 

Numeración de paginas

26/04/2010 - 20:21 por josepe | Informe spam
Actualmente pongo el impresor a imprimir un numero correlativo en la
esquina superior derecha (imprime solo el numero o folio) para luego
llevarlas fisco a que les pongan un sello en cada pagina.
Este numero es distinto e independiente del numero de pagina que imprime
el reporte legal de cada mes.
Actualmente esta numeracion, para papel continuo, la hago con una vieja
rutina de Qbasic. Pero quisiera hacer una rutina nueva en VFP para
numerar hojas sueltas (no papel continuo) en impresor laser. Alguien me
da una idea. Es que si uso report form, no hay data que escribir.
Acá la rutina actual, de principios de los 90s que aun funciona.

310 REM NUMERACION DE PAGINAS
11 PRINT "MENARINIDIAGN 1993, POR JOSEPE"
12 PRINT
13 PRINT "SE PROCEDERA A LA NUMERACION DE PAGINAS"
14 PRINT "SE PODRA INICIAR Y FINALIZAR UN RANGO DESEADO"
15 PRINT "="
16 INPUT " šNUMERO INICIAL: "; INICIO


20 INPUT " šLIMITE DESEADO: "; LIMITE

30 K = INICIO - 1
40 K = K + 1
50 LPRINT " "; USING "0#####"; K
51 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
: LPRINT
52 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
: LPRINT
53 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
: LPRINT
54 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
: LPRINT
55 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
: LPRINT
56 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
: LPRINT
57 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT
: LPRINT
58 LPRINT : LPRINT
70 IF K < LIMITE THEN 40
80 END
 

Leer las respuestas

#1 rubenantunes
23/07/2012 - 20:23 | Informe spam
Daniel Del Giudice escribió el 26/04/2010 23:45 :
Hola, yo tengo una "aplicacioncita" que hace justamente eso. Si no
resolviste aún, te la envío al privado y luego me cuentas
cómo te fue.

Saludos.

Daniel

"josepe" escribió en
el mensaje de
noticias:Ohne$
Actualmente pongo el impresor a imprimir un numero correlativo en la
esquina superior derecha (imprime solo el numero o folio) para luego
llevarlas fisco a que les pongan un sello en cada pagina.
Este numero es distinto e independiente del numero de pagina que imprime
el reporte legal de cada mes.
Actualmente esta numeracion, para papel continuo, la hago con una vieja
rutina de Qbasic. Pero quisiera hacer una rutina nueva en VFP para numerar
hojas sueltas (no papel continuo) en impresor laser. Alguien me da una
idea. Es que si uso report form, no hay data que escribir.
Acá la rutina actual, de principios de los 90s que aun funciona.

310 REM NUMERACION DE PAGINAS
11 PRINT "MENARINIDIAGN 1993, POR JOSEPE"
12 PRINT
13 PRINT "SE PROCEDERA A LA NUMERACION DE PAGINAS"
14 PRINT "SE PODRA INICIAR Y FINALIZAR UN RANGO DESEADO"
15 PRINT "="
16 INPUT " šNUMERO INICIAL: "; INICIO


20 INPUT " šLIMITE DESEADO: "; LIMITE

30 K = INICIO - 1
40 K = K + 1
50 LPRINT " "; USING
"0#####"; K
51 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT :
LPRINT
52 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT :
LPRINT
53 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT :
LPRINT
54 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT :
LPRINT
55 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT :
LPRINT
56 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT :
LPRINT
57 LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT : LPRINT :
LPRINT
58 LPRINT : LPRINT
70 IF K < LIMITE THEN 40
80 END




Daniel podrias enviarme una copia del programita que tienes para enumerar hojas. Gracias
Mi correo es

Preguntas similares