cReportName = "myreportname.frx" cTempRepName = FORCEPATH(SYS(2015) + ".frx", SYS(2023)) USE (cReportName) in 0 alias OrigReport select OrigReport COPY TO ( cTempRepName ) USE in OrigReport USE ( cTempRepName ) in 0 alias TMPREPORT select TMPREPORT goto 3 replace pagebreak with .F. ... USE ... REPORT FORM (cTempRepName) ... ERASE (cTempRepName) ERASE (FORCEEXT(cTempRepName, "FPT"))On unrelated note, using absolute position of the record in FRX (GOTO 3) may cause problem in a future because modifying report may change it.
>cReportName = "myreportname.frx" >cTempRepName = "tmprep.frx" >USE (cReportName) in 0 alias TMPREPORT >if file( cTempRepName ) > erase ( cTempRepName ) >endif >select TMPREPORT >COPY TO ( cTempRepName ) >USE in TMPREPORT >USE ( cTempRepName ) in 0 alias TMPREPORT >select TMPREPORT >goto 3 >replace pagebreak with .F. >>