APPENDIX B - Tips & Hints
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimeterToPoints (2.5)
.BottomMargin = CentimeterToPoints (2)
.LeftMargin = CentimeterToPoints (3)
.RightMargin = CentimeterToPoints (1.5)
.Gutter = CentimeterToPoints (0)
.HeaderDistance = CentimeterToPoints (1.25)
.FooterDistance = CentimeterToPoints (1.25)
.PageWidth = CentimeterToPoints (21)
.PageHeight = CentimeterToPoints (29.7)
.FirstPageTray = 257
.OtherPagesTray = 257
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False End With ActiveDocument.PrintOut
With ActiveDocument.PageSetup
.LineNumbering.Active = False
.Orientation = wdOrientPortrait
.TopMargin = CentimeterToPoints (2.5)
.BottomMargin = CentimeterToPoints (2)
.LeftMargin = CentimeterToPoints (3)
.RightMargin = CentimeterToPoints (1.5)
.Gutter = CentimeterToPoints (0)
.HeaderDistance = CentimeterToPoints (1.25)
.FooterDistance = CentimeterToPoints (1.25)
.PageWidth = CentimeterToPoints (21)
.PageHeight = CentimeterToPoints (29.7)
.FirstPageTray = 259
.OtherPagesTray = 259
.SectionStart = wdSectionNewPage
.OddAndEvenPagesHeaderFooter = False
.DifferentFirstPageHeaderFooter = False
.VerticalAlignment = wdAlignVerticalTop
.SuppressEndnotes = False
.MirrorMargins = False End With ActiveDocument.PrintOut
End Sub
Macro End
IU 683 / 0404 | 19 | TowerFeedTM for Brother Printers |
|
|
|