CLOSE ALL CLEAR ALL SET EXACT OFF SET PROCEDURE TO utilityReportListener.prg ADDITIVE SELECT 0 USE testfrx ALIAS rptfile GO TOP SELECT rptfile GO TOP lc_frmfile = "c:\scoresheetest\reports\testerpl" * REPORT FORM (lc_frmfile) PREVIEW * lc_frmfile = ALLTRIM(FULLPATH(CURDIR())) + "reports\" + JUSTSTEM(lc_rptname) lc_pdf = "test.pdf" local loSession, lnRetval loxfrx = XFRX("XFRX#LISTENER") loxfrx.setEmbeddingType(2) _xfrx_WordWrapAlgorithm = 1 lnRetval = loxfrx.SetParams(lc_pdf,,,,,,"PDF") SELECT rptfile GO TOP IF lnRetval = 0 REPORT FORM (lc_frmfile) OBJECT loxfrx NOPAGEEJECT Loxfrx.finalize() ELSE ? lnRetval ENDIF