PageFieldOrder Property Example

This example causes the PivotTable report to draw three page fields in a row before starting a new row.

With Worksheets(1).PivotTables("Pivot1")
    .PageFieldOrder = xlOverThenDown
    .PageFieldWrapCount = 3
End With