VerticalGap Property

When multiple pages are printed on one sheet of printer paper, returns or sets a Variant that represents the distance (in points) between the bottom edge of the publication page and top edge of the publication page in the row immediately below. Read/write.

expression   Required. An expression that returns one of the objects in the Applies To list.

Remarks

Use the VerticalGap property when printing multiple pages on a single sheet of printer paper. If the page size, including the values for the VerticalGap and HorizontalGap properties, is greater than half the paper size, Microsoft Publisher will display an error.

Example

This example sets the page height and width of the active document, specifies that it be printed with multiple pages on each sheet of printer paper, and sets the vertical gap between those two pages at half an inch. This example assumes the page orientation is set to landscape.

Sub SetVerticalGap()
    With ActiveDocument.PageSetup
        .PageHeight = InchesToPoints(8)
        .PageWidth = InchesToPoints(4)
        .MultiplePagesPerSheet = True
        .VerticalGap = InchesToPoints(0.5)
    End With
End Sub