Voila,

j'ai un problème avec une impression.

Pour imprimer je recupère le texte d'un memo (lier à une db Access)


Voici le code:

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
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();
J'ai executer mon prog avec un arrêt pour vérifier ce qui se trouvais dans ma variable texte2 et j'ai bien mon texte avec a chaque fin de phrase mon saut de ligne et mon retour a la ligne mais lors de l'impression tout est imprimer sur une ligne!!

En ce qui concerne la lecture du fichier j'aimerrai mettre ma db a jour une fois par jour existe t'il une fonction que je pourrai définir à 9h00 du matin tous les jour par exemple.

Voila merci d'avance.