APPENDIX B - Tips & Hints

With ActiveDocument.PageSetup

.LineNumbering.Active = False

.Orientation = wdOrientPortrait

.TopMargin = CentimetersToPoints(1.8)

.BottomMargin = CentimetersToPoints(2)

.LeftMargin = CentimetersToPoints(2)

.RightMargin = CentimetersToPoints(1)

.Gutter = CentimetersToPoints(0)

.HeaderDistance = CentimetersToPoints(0.5)

.FooterDistance = CentimetersToPoints(2)

.PageWidth = CentimetersToPoints(21)

.PageHeight = CentimetersToPoints(29.7)

.FirstPageTray = wdPrinterLargeCapacityBin

.OtherPagesTray = wdPrinterLargeCapacityBin

.SectionStart = wdSectionNewPage

.OddAndEvenPagesHeaderFooter = False

.DifferentFirstPageHeaderFooter = False

.VerticalAlignment = wdAlignVerticalTop

.SuppressEndnotes = False

.MirrorMargins = True End With

Active Document.PrintOut

With ActiveDocument.PageSetup

.LineNumbering.Active = False

.Orientation = wdOrientPortrait

.TopMargin = CentimetersToPoints(1.8)

.BottomMargin = CentimetersToPoints(2)

.LeftMargin = CentimetersToPoints(2)

.RightMargin = CentimetersToPoints(1)

.Gutter = CentimetersToPoints(0)

.HeaderDistance = CentimetersToPoints(0.5)

.FooterDistance = CentimetersToPoints(2)

.PageWidth = CentimetersToPoints(21)

.PageHeight = CentimetersToPoints(29.7)

.FirstPageTray = 257

.OtherPagesTray = 257

.SectionStart = wdSectionNewPage

.OddAndEvenPagesHeaderFooter = False

.DifferentFirstPageHeaderFooter = False

.VerticalAlignment = wdAlignVerticalTop

.SuppressEndnotes = False

.MirrorMargins = True End With

Active Document.PrintOut End Sub

Macro End

IU 660 / 0047

19

TowerFeedTM for the HP LaserJet 8150/8100/8000