Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Is printing on 2 sides function of app or printer?
Message
From
12/07/2019 16:09:55
 
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
01669522
Message ID:
01669539
Views:
51
>Thank you. I will relate this message to them.
>
>>If user prints reports, they can do it on their own on printers that supports it.
>>
>>>
>>>A customer wants reports to be printed on both sides of the paper. Is this something I need to do in my VFP 9 app?
>>>Or, this is the function of the printer and they need to do something?
>>>
>>>TIA
Dimitry,

In case your customer has a printer dog-matrix e.g. which does not support Both sides printed, the solution would be for them to print first the odd pages of the report. take the printed paper and turn it around , than print the even pages.
For that I have in my classes this code:
Parameters tcReport, tcOddEven

Select curReport

Go Top
Set ReportBehavior 90
loOddEvenListener = Newobject("OddEvenListener")
loOddEvenListener.ListenerType	= 1   &&Preview
loOddEvenListener.icWhatToPrint = Upper(tcOddEven)

Report Form (m.tcReport) Object loOddEvenListener

Define Class OddEvenListener As UpdateListener Of "_reportlistener.vcx"

	icWhatToPrint = Upper(m.tcOddEven)

	Function IncludePageInOutput
		Lparameters tnPageNo
		Do Case
			Case tcOddEven = "ALL"
				Return .T.
			Othe
				Return (m.tnPageNo%2=1 And This.icWhatToPrint = "EVEN") Or (m.tnPageNo%2 = 0 And This.icWhatToPrint="ODD")
		Endcase
Enddefine
Regards,
Koen
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform