In diesem Beispiel wird die Ausrichtung für das Feld "BESTELLDATUM" angezeigt.
Set pvtTable = Worksheets("Sheet1").Range("A3").PivotTable Set pvtField = pvtTable.PivotFields("ORDER_DATE") Select Case pvtField.Orientation Case xlHidden MsgBox "Hidden field" Case xlRowField MsgBox "Row field" Case xlColumnField MsgBox "Column field" Case xlPageField MsgBox "Page field" Case xlDataField MsgBox "Data field" End Select
In diesem Beispiel wird festgelegt, dass Sheet1 im Querformat gedruckt wird.
Worksheets("Sheet1").PageSetup.Orientation = xlLandscape