Sub LandscapeLST9()
'
' LandscapeLST9 Macro
'
Application.ScreenUpdating = False
Dim i As Long
  With ActiveDocument
        .PageSetup.Orientation = wdOrientLandscape
        .PageSetup.TopMargin = CentimetersToPoints(0.6)
        .PageSetup.BottomMargin = CentimetersToPoints(0.6)
        .PageSetup.LeftMargin = CentimetersToPoints(0.6)
        .PageSetup.RightMargin = CentimetersToPoints(0.6)
   End With

  With Selection.Font
   .Name = "Lucida Sans Typewriter"
   .Size = 9

  End With
 Application.ScreenUpdating = True

End Sub