Hello,

Below is the macro I made to set the printer to print on letterhead. Here
are the settings I want:

Page Setup to [Tab] Paper:

1.       Paper size: 8.5X11" Letter

2.       Paper source

a.       First page: Tray 1

b.       Other pages: Automatically Select

Print Properties:

           1. Paper/Output: 8.5X11" Letter, White, Letterhead

The actual macro named Letterhead is below:

Sub Letterhead()

'

' Letterhead Macro

' To Print to Letterhead

'

   With ActiveDocument.Styles(wdStyleNormal).Font

       If .NameFarEast = .NameAscii Then

           .NameAscii = ""

       End If

       .NameFarEast = ""

   End With

   With ActiveDocument.PageSetup

       .LineNumbering.Active = False

       .Orientation = wdOrientPortrait

       .TopMargin = InchesToPoints(1)

       .BottomMargin = InchesToPoints(1)

       .LeftMargin = InchesToPoints(1)

       .RightMargin = InchesToPoints(1)

       .Gutter = InchesToPoints(0)

       .HeaderDistance = InchesToPoints(0.5)

       .FooterDistance = InchesToPoints(0.5)

       .PageWidth = InchesToPoints(8.5)

       .PageHeight = InchesToPoints(11)

       .FirstPageTray = 259

       .OtherPagesTray = wdPrinterFormSource

       .SectionStart = wdSectionNewPage

       .OddAndEvenPagesHeaderFooter = False

       .DifferentFirstPageHeaderFooter = False

       .VerticalAlignment = wdAlignVerticalTop

       .SuppressEndnotes = False

       .MirrorMargins = False

       .TwoPagesOnOne = False

       .BookFoldPrinting = False

       .BookFoldRevPrinting = False

       .BookFoldPrintingSheets = 1

       .GutterPos = wdGutterPosLeft

   End With

End Sub

Can/will someone show me a better way to do this???

Thank you,

Charles L. Phillips