Discussion :

[JP.NUAGE]

Bonjour è tous

J'au un soucis de cadrage. Sur une TM de Epson, je ne peux utiliser que des impressions avec Canevas et une zone préformatée. Tant que j'imprime du texte tout va bien, mais avec des chiffres cadrés à droite, je n'arrive pas à aligner les virgules dans les odres 'format'. Si les nombres que j'imprime ne sont pas de la même longueur c'est une joyeuse guirlande.

Quelqu'un a-t-il une suggestion ?

Merci d'avance

[ygrim]

Salut,
Ta question n'est pas précise. Quel solution de reporting utilises tu ? Dans quel cadre ?

[JP.NUAGE]

Un petit dessin valant mieux qu'un grand discours, voici la séquence qui me pose probè�me

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 xVertical := 10;
 
  with Printer do
    begin
      BeginDoc;
         Canvas.Font.Name := 'Courrier New';
         Canvas.Font.Size :=10;
 
      with VENDTEMP do
          while not Eof do
             begin
 
//*******************************
//  J'initialise ici xLigne en fonction des valeurs de TOTLIG_TTC
//  Je n'ai pas fait figurer cette séquence
//*******************************
 
                xTotal := FloatToStrF(FieldValues['TOTLIG_TTC'],ffFixed,8,2);
                Canvas.TextOut(10,xVertical,xLigne);
 
//*********************************************************
//  C'est l'ordre qui suit qui me tarabiscute : je voudrais que tous les 
//  chiffres soit alignés  verticalement sur la virgule
//*********************************************************
                Canvas.TextOut(413,xVertical,xTotal);
                xVertical := xVertical + 25;
                Next;
             end;
 
         EndDoc;
    end;

J'espère être plus clair ainsi

Je précise que les chiffres vont de 0.00 à 10000.00

Merci d'avance

[JP.NUAGE]

Bonjour à tous

Je relance un peu mon pb de Ticket de caisse. Jusqte pour savoir si quelqu'un a une petite solution

A+

[petitprince]

Apparement, au vue du bout de code, tu utilise PrintPreview de DelphiArea, non ?
Si j'ai bien compris, tu veux que tes virgules soient alignées sur la droite, comme un ticket de caisse quoi, c'est ça ?
J'ai eu exactement le même problème...
Moi je fais un TextWidth('1000.00'), comme ça tu peux en déduire à combien tu dois la faire démarrer .....
Voilà, j'espère que je t'aurais fais avancer un peu ...

Je précise que les chiffres vont de 0.00 à 10000.00

Une sacrée note pour le client !

[JP.NUAGE]

A PetitPrinse

On n'a jamais rien sans rien !

Si j'ai mis 100000 c'est qu'il peut y avoir - 10000 ce qui comporte autant de caractères que 10000 et 10000 sont des petites notes dans des stations comme Courchevel ou Gstaad.

Je vais essayer ta solution. merci déjà de m'avoir lu

Tu as le bonjour d'une rose, elle vient de m'envoyer un texto !

Moi je reste sur mon nuage

[JP.NUAGE]

A petitPrince

Désolé d'avoir 'écorché' ton pseudo!

[JP.NUAGE]

Bonjour à tous

Impécable : le ticket sort parfaitement aligné.

Merci beaucoup