Ecrire WYSIWYG a l'écran, puis imprimer.

Version imprimable

Bonjour,

Je veux écrire plusieurs textes avec des fonts different (et avec des largeurs different) sur le Form principale. Puis, je veux imprimer cela exactement comme il apparait sur le Form.

Jai essayé le code desous, mais le resultat imprimé n'est pas le meme que ce q'on voit sur l'écran.

J'utilise TPrinter. Les fonts different sont definie par deux TFont dialogues.
Code:

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 TPrinter *Prntr; Prntr = Printer(); Label1->Font = FontDialog1->Font; // écrire sur l'écran. Label1->Caption = "Bonjour"; Label1->Left = 10; Label1->Top = 10; Label2->Font = FontDialog2->Font; Label2->Caption = "Blablabla"; Label2->Left = 50; Label2->Top = 50; Prntr->BeginDoc(); // écrire sur Printer Canvas Prntr->Canvas->Font = FontDialog1->Font; Prntr->Canvas->TextOut(10,10,"Bonjour"); Prntr->Canvas->Font = FontDialog2->Font; Prntr->Canvas->TextOut(50,50,"Blablabla"); Prntr->EndDoc();
Quelqu'un a une idee comment il faut le faire ?
Merci en avance.

Je n'ai aucune idée, si sa va changer de quoi, mais tu peux essayer le code suivant:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 TPrinter *Prntr;     
 Prntr = Printer();
 
 Label1->Font = FontDialog1->Font;          // écrire sur l'écran.  
 Label1->Caption  = "Bonjour";
 Label1->Left = 10;
 Label1->Top = 10;
 
 Label2->Font = FontDialog2->Font;
 Label2->Caption  = "Blablabla";
 Label2->Left = 50;
 Label2->Top = 50;
 
 Prntr->BeginDoc();                         // écrire sur Printer Canvas
 
   Prntr->Canvas->Font = Label1->Font;
   Prntr->Canvas->TextOut(Label1->Left, Label1->Top, Label1->Caption);
 
   Prntr->Canvas->Font = Label2->Font;
   Prntr->Canvas->TextOut(Label2->Left, Label2->Top, Label2->Caption);
 
 Prntr->EndDoc();

Si sa ne fonctionne pas, essai de mettre ton Font manuellement:

Code:

1
2
3
Prntr->Canvas->Font->Size = 12;
Prntr->Canvas->Font->Name = "Arial";
Prntr->Canvas->Brush->Color = clBlack;

Donne nous des nouvelles...

Merci Crayon,

En essayant ton code j'ai trouve la solution. :D

Le probleme etait que les charactères imprimé etaient relativement plus grandes que les charactères a l'écran. Il parait qu'ils sont exactement deux fois plus grandes. Alors la solution est simplement de multiplier le Font Size des Labels sur l'écran par deux:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Label1->Font = FontDialog1->Font; // l'écran. Label1->Font->Size *= 2; // <--------------- Label1->Caption = "Bonjour"; Label1->Left = 10; Label1->Top = 10; Prntr->BeginDoc(); // écrire sur Printer Canvas Prntr->Canvas->Font = FontDialog1->Font; Prntr->Canvas->TextOut(10,10,"Bonjour"); Prntr->EndDoc();