Set REPORTBEHAVIOR 90 LOCAL loObj, loSession *---------- xfrx ayarla ------------- Set Classlib To (Home()+"FFC\_reportlistener.vcx") Additive loObj = Evaluate([xfrx("XFRX#LISTENER")]) loObj.setEmbeddingType(3) &&---- PDF dosyası sadece kullanılan fontları yükle loUpdate = Createobject("updatelistener") loUpdate.thermFormCaption = "Rapor oluşturuluyor ..." loObj.successor = loUpdate loObj.targetType = "XFF" Report Form liste Object loObj do form preview with loObjforms init section:
lpara xfilename With This.xfcont Set REPORTBEHAVIOR 90 .Reset .iTool = 0 && do not show the toolbar .setlanguage("TR") xfilename.XFRXPreviewer = This.xfcont && send the container object reference xfilename.previewReport(xfilename.oxfDocument) this.oreport=xfilenameforms destroy:
this.xfcont.clearlink
What's the problem? I can remove form just with Program->cancel