EXTERNAL CLASS _reportlistener.vcx SET CLASSLIB TO _reportlistener.vcx additive loxfrx= EVALUATE("xfrx('XFRX#LISTENER')") nRetVal = loxfrx.SetParams(poGRXReportObject.output,m.tempdir,.t.,reportCodePage(),,,"PDF") If nRetVal # 0 MESSAGEBOX('Error ' +TRANSFORM(m.nRetVal)+ ; ' '+ loXFRX.ErrorMessage(m.nRetVal) ) RETURN ENDIF loxfrx.setauthor('myapp') REPORT FORM ( pcGRXTempName ) &pcGRXRepExpr OBJECT loXFRX RELEASE loXFRX