Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Servers (https://www.clubdelphi.com/foros/forumdisplay.php?f=9)
-   -   Personalizar pie de página en hoja excel (https://www.clubdelphi.com/foros/showthread.php?t=40401)

cgutisan 15-02-2007 15:50:48

Personalizar pie de página en hoja excel
 
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 15-02-2007 16:03:27

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 15-02-2007 16:46:31

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 16-02-2007 11:00:04

Personalizar pie de página en hoja excel
 
Hola,

RightFooter:='&P/&#'

Funciona!, Gracias a los dos. Salu2


La franja horaria es GMT +2. Ahora son las 01:49:22.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi