Bonjour
voilà ce que nous utilisons :
// Code du bouton d'impression
SI OuiNon("Voulez-vous un aperçu à l'écran ?") ALORS iAperçu(2)
iCréePolice(1,10,iNormal,iCourier)
iCréePolice(2,12,iGras,iCourier)
iCréePolice(3,10,iGras,iCourier)
ArbreListeFils("ARBRE",Null,"IMPRIMER")
iFinImprime()
iRAZ()
// Procédure appelée par ArbreListeFils
PROCEDURE IMPRIMER(p_arbre,p_chemin,p_element,p_niveau,point)
decal est une chaîne
SI p_niveau=1
iPolice(2)
iImprime("")
SINON
SI ArbreTypeElément(p_arbre,p_chemin+p_element)=aFeuille
iPolice(1)
SINON
iPolice(3)
FIN
decal=Répète(" ",p_niveau*2)
FIN
SI PAS iImprime(decal+p_element) ALORS RENVOYER Faux
peut-être que cela te suffira |