Discussion :

[Beauserge]

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;

[DuffNut]

Si tu veux ajouter du texte au début du Memo utilise la méthode Insert avec l'index à 0.

Code :

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

Memo3.Lines.Insert(0, Titre);

Tu peux essayer d'ajuster l'index suivant ta variable i pour le faire à chaque page, je n'ai pas testé...

[Beauserge]

Merci DuffNut, ça fonctionne impec !

par contre, lorsque la boite de dialogue d'impresssion s'ouvre et que je clique sur "Annuler l'impression", la 1ere ligne se rajoute quand même ?

Comment se fait il ? Je voudrais que rien ne s'imprime

A+
Beauserge

[DuffNut]

J'ai ajouté un TPrintDialog pour avoir la même config que toi.

Lorsque la fenêtre est appelée tu as le choix entre "OK" et "Cancel" pour moi. Quand je clique sur Cancel, rien ne se passe tu parles de ça pour annuler l'impression ?

[Beauserge]

oui tout à fait.

En fait si tu cliques la 1ere fois sur Annuler sans imprimer , c'est Ok - rien ne se passe
mais si tu cliques sur Imprimer et qu'ensuite tu réessayes d'imprimer mais tu veux annuler l'impression, ça imprime quand même et cela autant de fois que tu cliqueras sur Annuler ensuite ...

Essayes chez toi pour voir

A te lire

[SergioMaster]

Bonjour,

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
procedure TForm1.BitBtn2Click(Sender: TObject);
var
 FichierImprimante : TextFile;
 Titre : String;
  i, j : Integer;
begin
  Titre:=('Matériels et Accessoires');
  Memo3.lines.add(Titre,0);  <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
  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);
      for i := 0 to Memo3.Lines.Count-1 do
        Writeln (FichierImprimante, Memo3.Lines[i]); // je l'imprime //pour chaque ligne du Mémo
      CloseFile(FichierImprimante); // fermeture du "fichier imprimante"
    end;
  end;
end;

[Beauserge]

Ne cherche pas DuffNut ! j'ai trouvé la solution au problème.

Cela n'a rien à voir avec le bouton Cancel.
En fait, étant donné que j'ajoute le titre avant l'impression et que mon Memo n'est sauvegardé qu'à la fermeture du programme, il conservait en mémoire le titre + ajoutait la nouvelle ligne à chaque fois.

J'ai collé une ligne de code pour sauvegarder le Memo à la fin de l'impression et le tout est joué.

Merci pour ton aide
Cordialement
Beauserge

[DuffNut]

J'ai essayé avec une imprimante PDF car je n'ai pas d'imprimante mais je n'ai pas le même problème que toi lorsque j'annule... Je suis avec Delphi 10.1 Berlin.

Je n'ai pas vraiment d'idées sur le sujet, essaye de déboguer et ajouter/supprimer des lignes pour voir d'où vient le problème...

Par contre tu as un problème dans tes boucles car le titre sera affiché plusieurs fois lorsque tu fais plusieurs copies. Et tu en auras un lorsque tu cliqueras une deuxième fois pour imprimer car le Titre sera de nouveau inséré dans le memo (vérifier si tu es déjà passé dans l'impression une fois...)

Voici mon 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
procedure TForm1.Button1Click(Sender: TObject);
var
 FichierImprimante : TextFile;
 Titre : String;
  i, j : Integer;
begin
  Titre:=('Matériels et Accessoires');
  if PrintDialog1.Execute then
  begin
    Memo1.Lines.Insert(0, Titre);
    for j := 1 to PrintDialog1.Copies do // autant de fois que le nombre d'exemplaires voulu
    begin
      AssignPrn(FichierImprimante); //affecte FichierImprimante à l'imprimante
      Rewrite(FichierImprimante);
      for i := 1 to Memo1.Lines.Count do
        Writeln(FichierImprimante, Memo1.Lines[i - 1]); // je l'imprime //pour chaque ligne du Mémo
      System.CloseFile(FichierImprimante); // fermeture du "fichier imprimante"
    end;
  end;
end;

[Beauserge]

oui effectivement le titre revenait à chaque fois dans la boucle donc pour "ruser", j'ai ajouté une ligne pour supprimer le titre avant le lancement de la boucle, puisque ensuite
il se rajoute au lancement de l'impression et c'est réglé !

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
 if PrintDialog5.Execute then

  begin
  Memo3.lines.Delete(0);  // supprimer le titre avant de le rajouter - plus bas dans le memo (pour éviter doublon)
    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);
      Memo3.lines.Insert(0,Titre);  // ajoute le titre du Memo sur la 1ere ligne seulement à l'impression
      for i := 0 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;
     Memo3.Lines.SaveToFile('Memo commentaires.txt');   // sauve le Memo à nouveau
  end;

A+
Beauserge