>I need to add the same print when expression to all shapes and lines on several reports. Each report has about 20-30 shapes and lines. Is there a way to write a prg to do this?
>
>Thanks
>
>Pat Murphy
The print when is stored in the FRX's SupExpr memo field.
For Shapes the field objtype = 7
For Lines objtype = 6
So you could do the following
LPARAMETERS tcReport, tcPrintWhen
LOCAL lcReport, lcPW
lcReport = ForceExt(tcReport,"frx")
Use (lcReport)
Replace supexpr With tcPrintWhen ;
For Inlist(objtype,6,7)
Use
Compile Report (lcReport)
Insanity: Doing the same thing over and over and expecting different results.