centrer un text par rapport a la decimale

Question

Salut
j'essaye d'imprimer et j'ai par rapport a mon format ###0.000
donc j'ai
0.123
12.250
13.260
1250.500
et je voudrais que tout soit centrer par rapport a 
la ,
Merci d'avance
a oui j'ai essayer le formatnumber(nombre,3)
sa marche pas il dit qu'il faut la declarer mais comment ????

crenaud76 · Answer

Voici une solution :

right$(string$(10," ") & Format(MonNombre,"# ##0.000"),10)

Tout les nombre seront aligné avec autant d'espace devant qu'il en faut pour que cela tienne dans 10 caractères !
Attention ! A l'impression il va te falloir utiliser une police non-proportionnelle, sinon, cela va compliquer un peu l'affaire !!

Christophe R.

petiflamand · Answer

prout = Mid(Form3.List3.List(a), 37, 8)
prout = Right$(String$(10, " ") & Format(prout, "# ##0.000"), 10)
Printer.CurrentY = 127 + b
Printer.CurrentX = 165
Printer.Print prout

Voici ce que je vient d'essayer et sa marche pas .

crenaud76 · Answer

"sa marche pas" <- Ca fait quoi alors ???

Christophe R.

petiflamand · Answer

prout = Mid$(Form3.List3.List(a), 15, 9)
prout = Right$(String$(10, " ") & Format(prout, "####0.00"), 10)
x = Printer.TextWidth(prout)
Printer.CurrentX = 77 - x
Printer.CurrentY = 127 + b
Printer.Print prout

Voila christophe avec ceci sa marche 

Et Merci encore

crenaud76 · Answer

J'en déduis donc, que si cela marche avec ce code, ta police est une police proportionnelle !!

Christophe R.

crenaud76 · Answer

J'en déduis donc, que si cela marche avec ce code, ta police est une police proportionnelle !!

Christophe R.

Centrer un text par rapport a la decimale

6 réponses

Discussions similaires