Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
I have a problem with new XFRX version
Message
From
09/03/2012 03:56:13
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
01537618
Message ID:
01537697
Views:
79
>What is second parameter?

I'm not sending secong parameter. This is my code, it's working with my XFRX 11.1.0001 version:
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
Previous
Reply
Map
View

Click here to load this message in the networking platform