[marcoszorrilla]

He hecho la prueba y funciona como dice Lepe:

Código Delphi [-]
WS.PivotTableWizard(xlDatabase, 'Data!R2C1:R10C5', EmptyParam,
                      'PivotTable1', EmptyParam, EmptyParam, EmptyParam,
                       EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                       EmptyParam, EmptyParam, EmptyParam, EmptyParam,
                       EmptyParam, lcid);
  PT := WS.PivotTables('PivotTable1', lcid) as PivotTable;
  PT.AddFields('Molly','Dolly', EmptyParam, EmptyParam);
  (PT.PivotFields('Test') as PivotField).Orientation := xlDatafield;

  ws.PageSetup.RightFooter:='Página &P/&#';]

Un Saludo.