UpsSys.IFluxFormate.ContenuPiedDePage

Rappel ContenuPiedDePage(F : IFluxFormate);

Description

La méthode de rappel ContenuPiedDePage permet de désigner une ou plusieurs procédures qui vont écrire le contenu du pied de la page.

Si hauteur du pied de page vaut zéro, alors il n'y a pas de pied de page. De plus, les lignes excédant cette hauteur sont ignorées.

Exemple

/****************************************************************/
Rappel FluxFormateSysteme.ContenuEnteteDePage(F : IFluxFormate)
/* Objet : Ecrit le contenu de l'en-tete de page. */
/****************************************************************/
Debut
F.Ecrire("Mon en-tête de page - "+Caractere(DateSysteme()));
F.Ecrire(".AjouterDroite(F.LargeurCorps, "-");
Retourner RappelSucces;
Fin Rappel

/****************************************************************/
Rappel FluxFormateSysteme.ContenuPiedDePage(F : IFluxFormate)
/* Objet : Ecrit le contenu du pied de page. */
/****************************************************************/
Debut
F.Ecrire(".AjouterDroite(F.LargeurCorps, "-");
F.Ecrire("Mon pied de page - "+Caractere(F.NumeroPage));
Retourner RappelSucces;
Fin Rappel

/****************************************************************/
Rappel FluxFormateSysteme.ContenuEnteteDeCorps(F : IFluxFormate)
/* Objet : Ecrit le contenu de l'en-tete de corps. */
/****************************************************************/
Debut
F.Ecrire("+---------------------+-----------------------+");
F.Ecrire("+ Nom employé. + Salaire. +");
F.Ecrire("+---------------------+-----------------------+");
Retourner RappelSucces;
Fin Rappel

/****************************************************************/
Rappel FluxFormateSysteme.ContenuPiedDePage(F : IFluxFormate)
/* Objet : Ecrit le contenu du pied de corps. */
/****************************************************************/
Debut
F.Ecrire("+---------------------+-----------------------+");
Retourner RappelSucces;
Fin Rappel

Principal
/*******/
Debut
...
/* Fixe les metriques de la pagination. */
Imprimante.HauteurEnteteDePage=2;
Imprimante.HauteurEspaceEntete=1;
Imprimante.HauteurEnteteDeCorps=3;
Imprimante.HauteurPiedDeCorps=1;
Imprimante.HauteurEspaceEntete=1;
Imprimante.HauteurPiedDePage=2;
/* Generation du tableau. */
F.Ecrire("+---------------------+-----------------------+");
F.Ecrire("+ Nom employé. + Salaire. +");
F.Ecrire("+---------------------+-----------------------+");
...
F.Ecrire("+---------------------+-----------------------+");
F.Ecrire("+ Nombre d'employés : "+Caractere(NbEmployés, "&&&&#"")+" +");
F.Ecrire("+---------------------+-----------------------+");
...
Fin Principal

Voir aussi

ContenuEnteteDeCorps pour écrire le contenu de l'en-tête de corps de la page. ContenuEnteteDePage pour écrire le contenu de l'en-tête de la page. ContenuPiedDeCorps pour écrire le contenu du pied du corps de la page.

Traduction

---------