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

Материал из VB Эксперт
Перейти к: навигация, поиск

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