This example displays the state field in the first PivotTable report on the active worksheet in outline format, and it displays the subtotals at the top of the field.
With ActiveSheet.PivotTables("PivotTable1") _
.PivotFields("state")
.LayoutForm = xlOutline
.LayoutSubtotalLocation = xlTop
End With