Personalizar pie de página en hoja excel

[cgutisan]

Hola,
Tengo un problema con todas las versiones de Excel (en español):
Quiero personalizar los pies de página de los documentos excel que genera mi aplicación, para que escriba el número de página del total de páginas. No consigo encontrar el carácter "número total de páginas". En todos los manuales aparece que debe ser &(ámpersan) N. En lugar del numero total de páginas me escribe el "N"ombre del fichero.

(WS: TExcelWorksheet)
WS.PageSetup.RightFooter:='Página &P/&N';

Podeis hacer la prueba escribiendo la cadena &P/&N en pie/cabecera de página en cualquier hoja excel.

Saludos a todos.

[[Lepe]]

Supongo que lo has probado... no lo sé, intenta con &P/&? a ver si tienes suerte.

Al menos en excel 2002, al editar el pié de página aparece en la lista "Página 1 de ?"

o quizás con #

Saludos y suerte, siento no dar una respuesta concisa.

[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.

[cgutisan]

Hola,

RightFooter:='&P/&#'

Funciona!, Gracias a los dos. Salu2