* Clear Printer Information in FRX
Local loFile, lnReportCount
lnReportCount = 0
Clear
MODIFY PROJECT ? NoShow NoWait    && Prompts for the Project Filename
* Loops into the Project Collection Object
For Each loFile In _Vfp.ActiveProject.Files 
	If loFile.Type = 'R'   		&& Checks for Report File Type
	   Wait Window 'Clearing Fields in: ' + loFile.Name TIMEOUT 1
	   Use (loFile.Name)
	   Go Top
	   Locate For ObjType = 1 and ObjCode = 53
	   If Found()
	      Replace Tag  with "", Tag2 with ""
	      lnReportCount = lnReportCount + 1
	      Use
	   ENDIF
	EndIf
EndFor
* Displays Process Summary
Wait Window AllTrim(Str(lnReportCount)) +; 
     ' Report(s) Modified in Project ' +;
      _Vfp.ActiveProject.Name