expression.BookFoldPrinting
expression Required. An expression that returns a PageSetup object.
Example
This example turns the active document into a booklet that prints in four-page increments.
Sub Booklet()
With PageSetup
.BookFoldPrinting = True
.BookFoldPrintingSheets = 4
End With
End Sub