Centrer un texte sur une page

Vous débutez et vous avez besoin d'aide ? N'hésitez pas à poser vos questions
Avatar de l’utilisateur
omega
Messages : 633
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: Centrer un texte sur une page

Message par omega »

Bonsoir à tous

j'ai utilisé la solution TextWidth, et ça a marché exactement comme je le souhaitais. Ce petit code suffit pour centrer un texte sur n'importe quel type d'imprimante. On n'a pas besoin de convertir quoi que ce soit puisque PrinterPageWidth() et TextWidth() utilise la même unité de calcul (pixel).

J'ai changé plusieurs fois les paramètres du texte à imprimer (sa taille, sa couleur, sa longueur et...),
résultat : tout simplement parfait. Le texte est toujours bien centré sur ma page.

Code : Tout sélectionner

Wcouleur=RGB(rouge,vert,bleu) ; -------- Couleur choisie par l'utilisateur
Wligne=VerCm(1) ;Position verticale = 1cm du haut vers le bas de page
DrawingFont(Wfont) ; Police et taille des caractères choisies par l'utilisateur (avec fontsize>=8 et <=20)               
Wcol=(PrinterPageWidth() - TextWidth(Titre$)) / 2; Position  horizontale =wcol = texte au milieu de ma page 
DrawText (Wcol,Wligne,Titre$,Wcouleur) ; impression du texte 
Merci beaucoup à tous
Win7 (x64) 64 bits Pb 5.72
Répondre