Getting orientation though code

[DonS100]

How do you get the orientation of a report(Portrait or Landscape) though code? I tried the code below but it always gives me zero.

Thanks

Don

Dim rpt As Access.Report
Dim iOrientation = rpt.Orientation

Set rpt = Reports("Report1")
iOrientation = rpt.Orientation

 

[Remou]

This may help:
PrtDevMode Property [Access 2003 VBA Language Reference]

http://msdn.microsoft.com/library/d...s/vbaac11/html/acproPrtDevMode_HV05187912.asp

 

[Knicks]

Here is some code that was posted a while back, you can disregard the margin part...

Me.Printer.PaperSize = acPRPSLetter
Me.Printer.BottomMargin = 0.5 * 1440
Me.Printer.TopMargin = 0.5 * 1440
Me.Printer.LeftMargin = 0.5 * 1440
Me.Printer.RightMargin = 0.5 * 1440
Me.Printer.Orientation = acPRORPortrait

 

[Knicks]

I should add, use the "on open" event of the report and it seems to work with newer versions of Access. I know some people with Access 97 couldn't get it to work