Re: Centrer un texte sur une page
Publié : mer. 21/janv./2015 19:24
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.
Merci beaucoup à 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