How do I change the Printer Orientation

Does anyone know how to change the Printer Orientation (to Landscape or Portrait) using API?

I am pretty sure that this question has been answered before, so I tried to search this site. But the search functionality is disabled by the administrator.

Private Sub Form_Click()
If printer.Orientation = 0 Then
printer.Orientation = 1
Else
printer.Orientation = 0
End If
End Sub

Dear sir,
I have tried the same before. when printing the printer orientation changes but for the preview any report if its width is increased for landscape error occured as reportwidth exceeds its value. Reportwidth is maximum for portrait orientation not for landscape for preview.

please help !

are you using the printer common dialog?

Thanks for replying,

What I am trying to do is to bring about a system wide change to the printer orientation. (I am trying to change the default setting for a selected printer.) Is it possible to do it with API?

With the printer object, it is not a system wide change. It just changes the orientation for the specific instance of the printer. The ESCAPE API function also does the same doesn't it?

I have downloaded the pageset.exe from the m$ site, and it works fine, but I am not sure about the distribution rights.