Bonjour

J'ai une question "idiote" peut être ...

Comment ajouter une ligne de texte sur la 1ere ligne d'un Memo avant d'imprimer celui ci qui contient déja du texte - voir mon code ci après

A vous lire
Merci
Beauserge

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
procedure TForm1.BitBtn2Click(Sender: TObject);
var
 FichierImprimante : TextFile;
 Titre : String;
  i, j : Integer;
begin
  Titre:=('Matériels et Accessoires');
  if PrintDialog5.Execute then
  begin
    for j := 1 to PrintDialog5.Copies do // autant de fois que le nombre d'exemplaires voulu
    begin
      AssignPrn(FichierImprimante); //affecte FichierImprimante à l'imprimante
      Rewrite(FichierImprimante);
      begin
      Memo3.lines.add(Titre,[i-1]);  // ajoute le titre du Memo sur la 1ere ligne seulement à l'impression  pas bon !!
      end ;
      for i := 1 to Memo3.Lines.Count do
        Writeln
          (FichierImprimante, Memo3.Lines[i - 1]); // je l'imprime //pour chaque ligne du Mémo
      System.CloseFile(FichierImprimante); // fermeture du "fichier imprimante"
    end;
  end;
end;