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

Preguntas similare

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


.

Respuesta 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
Respuesta 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


Respuesta 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
Respuesta Responder a este mensaje
#5 Josepe
27/04/2010 - 22:26 | Informe spam
Fabuloso, otra opcion mas.
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente Respuesta Tengo una respuesta
Search Busqueda sugerida