VBA/Excel/Access/Word/Word/Document Print
Changing the Page Setup
Sub page()
With Documents("yourDoc.doc").PageSetup
.PaperSize = wdPaperLetter
.Orientation = wdOrientPortrait
.TopMargin = 1
.BottomMargin = 1
.LeftMargin = 1
.RightMargin = 1.5
.MirrorMargins = True
End With
End Sub
Creating Different Odd- and Even-Page Headers
Sub diff()
ActiveDocument.Sections(1).PageSetup.OddAndEvenPagesHeaderFooter = True
End Sub