VBA/Excel/Access/Word/Word/Document Print

Changing the Page Setup

   <source lang="vb">

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

</source>
   
  

Creating Different Odd- and Even-Page Headers

   <source lang="vb">

Sub diff()

   ActiveDocument.Sections(1).PageSetup.OddAndEvenPagesHeaderFooter = True

End Sub

</source>