FitToPages Method Example

This example attempts to reduce the page count of the active document by one page.

On Error GoTo errhandler
ActiveDocument.FitToPages
errhandler:
If Err = 5538 Then MsgBox "Fit to pages failed"

This example attempts to reduce the page count of each open document by one page.

For Each doc In Documents
    doc.FitToPages
Next doc