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 32 33
| Printer()->BeginDoc();
Printer()->Canvas->Rectangle(720.712,150,1668.568,348.755);
Printer()->Canvas->Font->Name="Times New Roman";
Printer()->Canvas->Font->Size=16;
Printer()->Canvas->TextOutA(805.712,210,"SERVICE MAINTENANCE");
Printer()->Canvas->Font->Name="Times New Roman";
Printer()->Canvas->Font->Size=14;
AnsiString Texte = LbEntMemo->Caption;
Printer()->Canvas->TextOutA(250,450,Texte);
int y =250+Printer()->Canvas->TextWidth(Texte);
Printer()->Canvas->MoveTo(250,517.225); Printer()->Canvas->LineTo(y,517.225);
AnsiString Texte1 = DBEditNomMach->Text;
int w =1928.836+Printer()->Canvas->TextWidth(Texte1);
Printer()->Canvas->Rectangle(1877.164,438.755,w,528.715);
Printer()->Canvas->TextOutA(1900,450,Texte1);
Printer()->Canvas->Font->Name="Times New Roman";
Printer()->Canvas->Font->Size=12;
Printer()->Canvas->TextOutA(250,575,"Nom de l'opérateur :.................................");
Printer()->Canvas->TextOutA(250,650,"Date d'éxecution des travaux :......../......../........");
Printer()->Canvas->Rectangle(250,800,2150,2777.75);
Printer()->Canvas->Font->Name="Times New Roman";
Printer()->Canvas->Font->Size=10;
// --------------------------
// récupération du texte
//
AnsiString Texte2 = DBMemoEnt->Text;
Printer()->Canvas->TextOutA(307.14,833.735,Texte2);
// --------------------------
AnsiString Texte3 = "Remarque et/ou travaux à éffectuer";
Printer()->Canvas->TextOutA(250,2833.975,Texte3);
int z =250+Printer()->Canvas->TextWidth(Texte3);
Printer()->Canvas->MoveTo(250,2890.2); Printer()->Canvas->LineTo(z,2890.2);
Printer()->EndDoc(); |
Partager