MultiplePagesPerSheet Property

expression.MultiplePagesPerSheet

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

Remarks

If the page size is greater than half the paper size, Publisher will display an error.

Example

This example sets the active publication to print multiple pages on a single sheet when printing the publication.

Sub SetLeftMargin()
    With ActiveDocument.PageSetup
        .PageHeight = InchesToPoints(5)
        .PageWidth = InchesToPoints(8)
        .MultiplePagesPerSheet = True
        .LeftMargin = InchesToPoints(0.25)
    End With
End Sub