Número de Copias de un Report
Por Sysop FoxBoard (#4318) a las 17:42 del 03-03-2001  
 

Otro problema común es el número de copias de un report.

Tenemos varias opciones:

El sistema clásico leía el código de dentro de la tabla del report y cambiaba el
valor de la variable copias por las que te interesaba: el código que hace eso
es:

close all
lcnomInf = 'inform3.frx'
lcAlias = 'inform3'
lncopias = 3
lcCopias = ALLTRIM( PADR(lnCopias,2) )

SELECT 0

*- Abre el report
USE (lcNomInf) AGAIN ALIAS (lcAlias)

GO TOP

IF lnCopias > 1
  *- Cambia el número de copias
  lnPos = AT('COPIES', &lcAlias..EXPR)
  IF lnPos > 0
    REPLACE &lcAlias..EXPR WITH ;
        STUFF(&lcAlias..EXPR, lnPos+7,;
        1, lcCopias)
  ENDIF
ENDIF

Otro sistema más sencillo es usar la órden PRINTJOB.

En la Ayuda dice que: “ PRINTJOB ...  ENDPRINTJOB inicializa la impresora y
algunas variables del sistema que afectan al resultado impreso. Puede enviar
códigos de control a la impresora, expulsar una página en la impresora antes o
después de un trabajo de impresión, inicializar el número de columna de la
impresora y controlar el número de copias impresas.

Con lo que bastaría que antes de iniciar el proceso de impresora se estableciera
el valor de la variable del sistema _PCOPIES  al valor que nos interesa y meter
el REPORT FORM dentro de un bucle PRINTJOB... ENDPRINTJOB.

Una vez salido del bucle deberíamos reestablecer el  _PCOPIES = 1 .