lcReportDir=zgetDir('Get Report Folder') && zGetDir is the api getfolder stuff -- use getdir() instead. If not empty(lcReportDir) lcReportDir=addbs(lcReportDir) lnReports=adir(laFRXfiles,lcReportDir+"*.frx") For nFrxCounter= 1 to lnReports wait window nowait "Report Number " + transform(nFrxCounter) lcReportFile=lcReportDir+laFRXfiles(nFrxCounter,1) Use (lcReportFile) in 0 alias frxReport Select frxReport Locate FOR objtype = 1 AND objcode = 53 If FOUND() *!* Find out how many lines in memo field. Find mline for DEVICE, OUTPUT, DRIVER delete these lines m.memolines= memlines(expr) nDeviceline=atcline("DEVICE=",expr) nOutputLine=atcline("OUTPUT=",expr) nDriverline=atcline("DRIVER=",expr) m.NewExpr="" For i = 1 to m.memolines If i#nDeviceline and i#nOutputLine and i#nDriverline m.NewExpr=m.NewExpr + mline(expr,i) +chr(013) Endif Endfor && m.memlines Replace expr with m.NewExpr Replace tag WITH "" Replace tag2 WITH "" Endif (Found()) Use in frxReport Endfor (nFrxCounter) Endif (not empty(lcReportFile) wait clear wait window "Resetting Report default printer options completed"