How to print landscape

[anneoctaaf]

The code below works..
How can i tell it to print it "landscape" (default is portrait)

Thanx in advance!

*******************************************************

long job
integer li_ret

job = PrintOpen( )

li_ret = PrintDataWindow(job, dw_bedrijven)
IF li_ret <> 1 THEN
messagebox('Afdruk fout!', 'Er ging iets mis met afdrukken, de lijst is niet afgedrukt')
END IF
PrintClose(job)

close(parent)

 

[pgaec]

Do this before you call PrintDataWindow()

dw_bedrijven.Modify("DataWindow.Print.Margin.Orientation=1")


Orientation :
An integer indicating the print orientation. Values are:
0 -- The default orientation for your printer
1 -- Landscape
2 -- Portrait

 

[mbalent]

... Or if you always print this in landscape, set the property in the DW painter.

 

[anneoctaaf]

Thanx!