Un probleme etrange

Question

Mon but est d'imprimer un bordereau de prix.
Donc, a chaque ligne, j'imprime le N° de produit,
le nom du produit, son unité et son prix.
Pour cela, je positionne à chaque fois, mon curseur avec 
currentX, currentY pour que tout soit bien aligné. 
Et c'est là que ça bug.

Par exemple pour imprimer le prix, je tape ceci :
Printer.CurrentX = 9000 - TextWidth(CStr(Format(PRIX_A, "# ###.##")))
Printer.CurrentY = y
Printer.Print Format(PRIX_A, "# ###.00")

et sur ma feuille je me retrouve avec ça :
_4_030,00
11_500,00
___5,80   
(_ = un espace sur ma feuille)

Pourquoi 5,80 n'est-il pas aligné à droite avec les 
deux autres prix ?
(je pense que c'est parce que mon unité de positionnement
du curseur est le twip, mais j'vois pas comment régler
le problème)

Icem@n · Answer

non sa doit etre ta police d'ecriture qui n'est pas à espacement fixe tu doit choisir Courrier NEw ....

eltaris · Answer

Mais j'ai un autre probleme, qui a surement la même origine
que celui là, c'est, entre le nom du produit et son unité,
je dois inserer des pointillés qui partent du nom pour
aller vers l'unité. Pour cela, j'utilise la fonction
suivante : 

Lig = NomProduit
While TextWidth(Lig) < 7000 - TextWidth(".")
        Lig = Lig + "."
Wend

Donc je dois normalement avoir apres ceci une chaine
dont la taille = 7000 twip +ou- la taille d'un point.
Or lors de l'impression, je me retrouve avec des cas 
comme ça :
Produit1......................Unité
Produit203.................   Unité

Soit plus d'un point d'écart, ce qui n'est pas normal.