>filja=GETFILE() >fred=FILETOSTR("&filja") > >pcText = fred >SELECT clients >scan >replace sel with 1 >ENDSCAN >GO top > >REPORT FORM clients.frx TO PRINTER FOR TRIM(clients.sel)=1 > >SET PRINTER off >SET PRINTER to >First of all, don't use & when you don't have to. E.g.
lcFileName = getfile() if not empty(lcFileName) lcFileContent = filetostr(lcFileName) endif