Returns or sets a Variant that represents the distance (in points) between the top edge of the printer sheet and the top edge of the publication pages. Read/write.
expression.TopMargin
expression Required. An expression that returns one of the objects in the Applies To list.
You can only use the TopMargin property when printing multiple pages on a single sheet of printer paper.
This example specifies margins of a quarter of an inch between the top and left edges of the printer paper and the top and left edges of the pages in the active publication.
Sub SetTopMargin()
With ActiveDocument.PageSetup
.PageHeight = InchesToPoints(5)
.PageWidth = InchesToPoints(8)
.MultiplePagesPerSheet = True
.TopMargin = InchesToPoints(0.25)
.LeftMargin = InchesToPoints(0.25)
End With
End Sub