expression.BookFoldPrintingSheets
expression Required. An expression that returns a PageSetup object.
Example
This example turns the active document into a booklet that will print in sixteen-page booklets.
Sub Booklet()
With PageSetup
.BookFoldPrinting = True
.BookFoldPrintingSheets = 16
End With
End Sub