This is a multi-part message in MIME format.

------=_NextPart_000_03A8_01C206E2.970BBE60
Content-Type: text/plain;
	charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable

This should change orientation of the selected printer:

  Dim X As Printer
   For Each X In Printers
      If X.Orientation =3D vbPRORPortrait Then
         ' Set printer as system default.
         Set Printer =3D X
        'Now that printer is selected change the orientation to 
landscape
         Printer.Orientation =3D 2
         ' Stop looking for a printer.
         Debug.Print Printer.Orientation
         Exit For
      End If
   Next

Walt