Returns or sets a Variant indicating the distance between the right edge of the publication page and left edge of the next publication page in the same row. Numeric values are evaluated as points; string values may be in any unit supported by Microsoft Publisher (for example, "2.5 in"). Valid range is zero to the difference between the sheet width and the page width. Read/write.
expression.HorizontalGap
expression Required. An expression that returns one of the objects in the Applies To list.
This property applies only to publications where multiple pages will be printed on each printer sheet. Using this property for any other publication will generate an error.
The following example sets the horizontal distance between publication pages that will be printed on the same sheet to 96 points.
Sub SetHorizontalGap()
With ActiveDocument.PageSetup
.PageHeight = InchesToPoints(8)
.PageWidth = InchesToPoints(4)
.MultiplePagesPerSheet = True
.HorizontalGap = InchesToPoints(0.5)
End With
End Sub