CLOSE ALL ERASE TestRepo.PJ? TEXT TO lcText NOSHOW ERASE TestRepo.dbf ERASE TestRepo.fr? CREATE TABLE TestRepo (f1 c(3), f2 c(3)) INSERT INTO TestRepo VALUES ('111', 'AAA') INSERT INTO TestRepo VALUES ('222', 'BBB') CREATE REPORT TestRepo from TestRepo USE TestRepo FOR lnI = 1 TO 20 REPORT FORM ("TestRepo") preview ENDFOR ENDTEXT STRTOFILE(lcText,'TestRepo.prg') CREATE PROJECT TestRepo NOWAIT NOSHOW _vfp.ActiveProject.Files.Add('TestRepo.prg') _vfp.ActiveProject.Build('TestRepo.exe', 3) _vfp.ActiveProject.Close() lcRuncmd ="RUN /N " + SET("Default") + CURDIR() + 'TestRepo.exe' &lcRuncmd RETURN>Hi,