Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Printing to A4 paper size
Message
 
 
To
16/01/2019 12:18:58
General information
Forum:
Visual FoxPro
Category:
Reports & Report designer
Miscellaneous
Thread ID:
01665447
Message ID:
01665452
Views:
55
>>>>Hi,
>>>>
>>>>My Euro customers says a forms that my app prints needs to be "adjusted" to their paper size A4. I tried printing the same form to my printer, selecting the paper size A4 and I don't see a difference. Of course, my actual paper is 8.5" by 11".
>>>>
>>>>What do you suggest I need to do - or emulate - their "issue"? How do you deal with this, if you have Euro customers?
>>>>
>>>>TAI
>>>
>>>I create the reports in A4, to avoid that the report gets cutoff on the right side.
>>>
>>>When printing I look at the setting (in the program the user can chose A4 or Letter size), and the update the Expr field in the frx accordingly.
>>>
>>>The Expr field always looks like this in my reports:
>>>ORIENTATION=0
>>>PAPERSIZE=1
>>>COLOR=2
>>>
>>>Then I update the Papersize before running the report:
>>>
>>>
>>>LOCAL lcOrientation
>>>lcOrientation = SUBSTR(Expr,13,1)
>>>*
>>>LOCAL lcExpression
>>>*-- Set papersize and orientation.
>>>TEXT TO lcExpression TEXTMERGE NOSHOW
>>>ORIENTATION=<<lcOrientation>>
>>>PAPERSIZE=<<ICASE(toPreviewform.PaperSize="A4",'9',UPPER(toPreviewform.PaperSize)="LEGAL",'5','1')>>
>>>COLOR=2
>>>ENDTEXT
>>>*
>>>REPLACE Expr WITH lcExpression
>>>
>>
>>Thank you for your message.
>>All reports are created for the paper size 8.11 x 11 (regular paper size in the US).
>>Do I understand that I need to - for this one customer - at run time to update the the field EXPR in the FRX file?
>
>Yes, because I use the same reports for A4 and letter, I update the frx in runtime. for this I create a temporary version of the frx and use this for the reporting.
>
>STRTOFILE(FILETOSTR("MyReport.FRX"), FORCEPATH("MyReport.FRX", getEnv("temp")))
>STRTOFILE(FILETOSTR("MyReport.FRT"), FORCEPATH("MyReport.FRT", getEnv("temp")))
>USE (FORCEPATH("MyReport.FRX", getEnv("temp"))) alias TempReport IN 0
>REPLACE Expr WITH m.lcExpression IN TempReport
>USE IN TempReport
>
>and then running the report with this temporary version.
>Report form (FORCEPATH("MyReport.FRT", getEnv("temp")))

I understand. This will be a big job for me since my app has 100s of reports, in different modules and I will need to "fix" them all.
Btw, I have a customer in Aruba (and I see that you are in Aruba) and they have never asked for reports to be printed to A4 size paper. I suppose I was lucky there.
Thank you!
"The creative process is nothing but a series of crises." Isaac Bashevis Singer
"My experience is that as soon as people are old enough to know better, they don't know anything at all." Oscar Wilde
"If a nation values anything more than freedom, it will lose its freedom; and the irony of it is that if it is comfort or money that it values more, it will lose that too." W.Somerset Maugham
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform