Entorno de Impresoras de Reportes

[Dario_El_Cyber_Gaucho_Rosario_Argentina]

Buenas noches, alguien tiene a mano un codigo para recorrer todos los reportes y poner el entorno de impresoras en vacio automáticamente?..
Gracias

[Dario_El_Cyber_Gaucho_Rosario_Argentina]

Listo, solucionado, les dejo el codigo por si alguien lo necesita...

*set defa to c:\gestion\reportes
*SET STEP ON
son=ADIR(xlista,"*.frx")

FOR a = 1 TO son
  nom=xlista(a,1)
  *MODIFY REPORT (nom)
  USE (nom)
  LOCATE FOR Objtype = 1 AND Objcode = 53
  IF FOUND()

    REPLACE Tag  WITH ""
    REPLACE Tag2 WITH ""
    REPLACE Expr WITH ""  

  ELSE
     * como esto devuelva FOUND a falso, el report esta estropeado
    =MESSAGEBOX("Reporte roto",48,"")
  ENDIF  
  USE
ENDFOR
 

[ZeRoberto]

Es necesario hacerlo cada vez que se entre al sistema, porque yo solo lo hago una vez, bueno nunca lo probe, ni me di cuenta si después se desarregla.

Saludos 

VFP Unlimited - Canal de Youtube

https://www.youtube.com/channel/UCkUIcHDsOdMUIdhYNO985JQ