>lcFile = sys(3)  && legal filename
>lnCopies = ThisForm.spnCopies.Value && spinner value
>select * from myreport.frx into table lcFile + ".frx"
>repl expr with strtran(expr, 'COPIES=1', 'COPIES=' + str(lnCopies))
>use
>repo form (lcFile) to printer noconsole
>erase lcFile + ".frx"
>erase lcFile + ".frt"