Amiga Cheryl :
Estuve buscando en mis archivos de cuando programaba en foxpro 2.6 para D.O.S .un programa parecido a lo que solicitas pero no encontre algo parecido sino algo similar...
Ahora bien hacer lo que planteas bajo codigo es un poco mas laborioso por ello el que habla y de seguro varios colegas ahora obtan por utilizar el generador de Reportes que brinda funciones para realizar esta rutina y otras en menor tiempo...
De todos modos te muestro parte del codigo de unos de mis reportes que talvez te pueda servir...
Store 0 To LIMITE
IF tipo_form = 1
WAIT WINDOW "Eligio Formato Continuo." TIMEOUT 1
SET MARGIN TO 3
??? CHR( 27 ) + CHR( 67 ) + CHR( 66 ) && Longitud del Papel Continuo
ELSE
IF tipo_form = 2
WAIT WINDOW "Eligio Papel tama¤o A4." TIMEOUT 1
??? CHR( 27 ) + CHR( 67 ) + CHR( 69 ) && Longitud del Papel (A4)
ENDIF
ENDIF
************************************************************************
** DEFINE LA ALTURA DE IMPRESION SEGUN EL FORMATO **
************************************************************************
IF tipo_form = 1 && Formato Continuo
STORE 57 To LIMITE && 58
ELSE
IF tipo_form = 2 && Hoja tipo A4
STORE 62 To LIMITE && 60
ENDIF
ENDIF
IF Y > LIMITE .AND. !EOF() .OR. PROW() > LIMITE .AND. !EOF()
TOTPAGE=PAGE+1
STORE '- Continua en la Página Nro.' To TITPIE
IF tipo_form = 1 && Formato Continuo
@ 61,40-int(len(TITPIE)/2) Say TITPIE + STR(TOTPAGE,2,0) + " -"
ELSE
IF tipo_form = 2 && Hoja tipo A4
@ 64,40-int(len(TITPIE)/2) Say TITPIE + STR(TOTPAGE,2,0) + " -"
ENDIF
ENDIF
MC1=.T.
ENDIF
Saludos,
GABRIEL
(Lima-Perú)
PD : CREO ENTENDER QUE LO QUE HACE REFERENCIA EL AMIGO OSCAR GARCIA SE REFIERE A LA BANDA DEL REPORTE CREADO POR EL GENERADOR LLAMADO SUMMARY PARA ESTABLECER LA CANTIDAD DE PAGINAS...
