>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

**>>  validate parameters here <<**

lcReport = ForceExt(tcReport,"frx")

Use (lcReport)
Replace supexpr With tcPrintWhen ;
  For Inlist(objtype,6,7)
Use 
Compile Report (lcReport) && couldn't hurt