Hacer encabezado de excel desde Delphi
 

Hola a todos,
Tengo una clase que hereda de TExcelAplication llamada TExcel sin campos, solo con algunos métodos
TExcel= class(TExcelApplication)

y dentro de ella tengo este procedimiento

procedure TExcel.Encabezado(Izquierdo, Centro, Derecho :string);
var
tmpWorksheet : _Worksheet;
begin
tmpWorksheet := ActiveWorkBook.ActiveSheet as _Worksheet;
with tmpWorksheet.PageSetup do begin
LeftHeader := Izquierdo;
CenterHeader := Centro;
RightHeader := Derecho;

end;
end;

tengo una variable MiExcel:TExcel
e invoco al método de la siguiente manera:
MiExcel.Encabezado('Clasificador', 'Inventario','Pág. &P de &N');

Segun tengo entendido con &P obtengo la pagina y con &N el nro total de páginas ; además:
&D : Fecha
&T : hora
&F : nombre del documento
&A : nombre de la hoja

sin embargo en mi ordenador todo está trocado, tengo que:
&F es la fecha
&N es el noombre del documento
&T es tachado

¿Con qué puede guardar relación esto?
Gracias de antemano....

Me imagino que con el idioma de tu versión de Excel, aunque ese tipo de cosas no deberían ser dependientes del lenguaje. Por si te sirve, en español, el número total de hojas lo obtienes con &#.

// Saludos

Gracias
 

Hola Roman, gracias por tu rápida respuesta. Me ha servido en efecto para poder colocar el nro total de páginas en el encabezado. Aún me queda la duda de por qué la diferencia ya que concuerdo contigo en que esto debe ser algo estándar y con independencia del idioma del excel...

Saludos y gracias nuevamente :)