landscape to a report sheet

[artu01]

Hi, How to get landscape an sheet using report class

I tried this way:
ACTIVATE REPORT oRpt ;
on init oRpt:PrnLandScape()

but not working

Also tried:

ACTIVATE REPORT oRpt ;
on init oRpt:oDevice:SetLandScape()

Can you help me?

Thanks!

My configuration is: Fwh8.11, xharbour build 1.1.0 (Simplex) (Rev.6195), pellesC

[Enrico Maria Giordano]

Put

Code: Select all | Expand

PRNLANDSCAPE()

just before the REPORT command.

EMG

[artu01]

you are right Enrico!

i had declared PrnLandScape() after REPORT oRpt when I should have earlier

Now if you work

Thanks

[James Bott]

Don't forget to:

prnPortrait()

After the report also.

Regards,
James

[Carlos Mora]

I have the same problem and was solved using PrnLandscape() just before REPORT command, and put the PrnPortrait after the command, but the all the following reports remains landscaped.

I try the prnportrait after activate report but with the same wrong results.

What am I doing wrong?

[Enrico Maria Giordano]

Try putting PrnPortrait() after ACTIVATE REPORT command.

EMG

[Carlos Mora]

Hi Enrico,

tried already (read again my message )

Don't know why, but the only solution is to put prnportrait() just before the rest of reports. Given that, it should work after ACTIVATE, but didn't.

Thanks

[James Bott]

Carlos,

You might try:

ACTIVATE REPORT...ON END prnPortrait()

Or, you might have to add a sysrefresh():

ACTIVATE REPORT...ON END (sysRefresh(), prnPortrait())

However, it is probably not a bad idea to make sure any report is in the proper orientation before printing since it may have been left in the wrong orientation by any other report or program. So your solution of prnPortrait() before any report is probably a good idea. It would also be polite programming to save and restore the original printer orientation during any report.

Regards,
James

[Carlos Mora]

Thanks James!

I like the ON END solution, i'll give it a chance.