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

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Bernardo Martinez

26/04/2010 - 21:23 | Informe spam

Puedes hacer el formato como un reporte normal y creas un cursor temporal con
un solo campo de folio, creas los registros desde el folio inicial al folio
final y en dicho reporte solo imprimes el campo en cada cada hoja.

espero te sea de utilidad.

"josepe" wrote:

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

.

Responder a este mensaje

#2 mario alfredo

26/04/2010 - 21:54 | Informe spam

hay cuatro incognitas
la fila (linea), la columna, hasta cuantos digitos imprimiras 6
(123456) o diez (1234567890) y si los rellenas de ceros a la
izquierda, por ejemplo imprimiras 6 digitos pero solo hay numeros
enteros 1541, 001541

do whil .t.
clear
stor 0 to inicio,final
@12,2 say "Ingrese Numero Inicial: " get inicio pict "9999999999"
@14,2 say "Ingrese Numero Final: " get final pict "9999999999"
read
if inicio>final
@23,1
@23,1 say "Numero Inicial no debe ser mayor que al numero final"
read
loop
endif

seg=" "
@23,1
DO WHIL NOT seg$"SN"
@23,2 SAY "Esta Seguro (S/N) ? " GET seg PICT "!"
READ
ENDD
IF seg="N"
loop
ENDI

claser = "laser"
SET PRINTER TO NAME (claser)
*set prin to borre.doc
set devi to printer

do while inicio<=final
@2,68 say inicio pict "9999999999"
eject
inicio=inicio+1
enddo

set prin to
set devi to screen
*modi comm borre.doc

return
enddo

esto te funciona FOX DOS Y visual foxpro

Responder a este mensaje

#3 Daniel Del Giudice

26/04/2010 - 23:45 | Informe spam

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

Responder a este mensaje

#4 mario alfredo

27/04/2010 - 21:56 | Informe spam

podes crear un formulario con dos cajas de texto que se pueda ingresar
numero inicial y la otra numero final, dos command buttom a uno en
metodo click le colocas que diga imprima y le agregas este codigo, el
otro botm es para salir

esto lo colocas en el load del formulario
CREATE CURSOR forma1 (numeracion n(12))

sele formulario
do while inicio<=final
repl next 1 forma1.numeracion with inicio in forma1
inicio=inicio+1
enddo

claser = "laser"
SET PRINTER TO NAME (claser)

go top
report form miform.frx noconsole to printer

sele formulario
zap

set prin to
set devi to screen

o seguimos con codigo

CREATE CURSOR forma1 (numeracion n(12))

do whil .t.
clear
stor 0 to inicio,final
@12,2 say "Ingrese Numero Inicial: " get inicio pict "9999999999"
@14,2 say "Ingrese Numero Final: " get final pict "9999999999"
read
if inicio>final
@23,1
@23,1 say "Numero Inicial no debe ser mayor que al numero final"
read
endif

sele forma1
do while inicio<=final
repl next 1 forma1.formulario with inicio in forma1
inicio=inicio+1
enddo

claser = "laser"
SET PRINTER TO NAME (claser)

go top
report form miform.frx noconsole to printer

set prin to
set devi to screen

return
enddo

Responder a este mensaje

#5 Josepe

27/04/2010 - 22:26 | Informe spam

Fabuloso, otra opcion mas.

Responder a este mensaje

Ads by Google