With This.xfcont ... loObj = Evaluate([xfrx("XFRX#LISTENER")]) If !Empty(xboy) And !Empty(xen) loObj.setPaperSize(xen,xboy) Endif Set Classlib To (Home()+"FFC\_reportlistener.vcx") Additive loObj.setEmbeddingType(3) &&---- PDF dosyası sadece kullanılan fontları yükle loUpdate = Createobject("updatelistener") loUpdate.thermFormCaption = "Rapor oluşturuluyor ..." loObj.successor = loUpdate .setlanguage("TR") Select (This.xalias) loObj.targetType = "XFF" This.outputfile=temp() This.outputfile2=temp() loObj.targetFileName = This.outputfile Report Form (m.xname) Object loObj For &xfor && run the report, create the XFF cursor Select 0 If !Empty(xprinter) Local loxff loxff = xfrx("XFRX#DRAW") loxff.openDocument(This.outputfile2) xprinter=Alltrim(xprinter) loxff.printDocument(xprinter, "Kalem Yazılım",1) Return .F. Endif Select (This.xalias) loObj.XFRXPreviewer = This.xfcont && send the container object reference loObj.previewReport(loObj.oxfDocument) Endcase Endwith