LOCAL OCR LOCAL ORPT cpath=ALLTRIM(THISFORM.TExt1.Value) select repprint with thisform.list2 for i = 1 to .listcount if .Selected[i] cReport1=ALLTRIM(thisform.list2.List(i)) crpt=cpath+creport1 OCR = CREATEOBJECT("CrystalRuntime.Application") ORPT = OCR.OPENREPORT(crpt) thisform.label8.Visible= .t. thisform.label8.Caption=crpt IF ORPT.HASSAVEDDATA ORPT.DISCARDSAVEDDATA() ENDIF ORPT.PRINTOUT() cReport1='' crpt='' ENDIF GO i ENDFOR thisform.label8.Visible= .F. ENDWITH