[Delphi] TextFile et Printer

:salut:

voila, je voulais juste savoir si quelqu'un ne pouvait pas me donner un petit exemple sur "sending a text File to the Printer" (envoie d'un fichier texte à l'imprimante)

je sais que je dios faire un code dans le genre:

Code:

---

1 2 3 4 5 6 7 8

Procedure InitialisePriter; begin AssignPrn (FrintFile); Printer.canvas.Font.Name := 'Time New Roman'; Printer.Canvas.Font.Size := 14; (etc...) end;

---

si quelqu'un pouvait me donner un exemple concret ou un tutorial, ca m'aiderait pas mal

:merci:

FX

C'est du delphi ?

oeil,

Ce n'est pas vraiment du Pascal, mais du Delphi.

Je n'ai jamais utilisé une imprimante comme ça, mais après un petit coup d'oeil à la doc, voici où j'en suis.

L'instruction

Code:

---

1 2 3 4 5 6

... var f : text; ... AssignPrn(f); ...

---

ne signifie pas "prend le fichier f (auquel tu aurais assigné un fichier réel existant sur ton disque) et imprime le",

mais "je vais utiliser l'imprimante comme si j'écrivais dans un fichier texte, via la variable f"

Petit programme minimal:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

program tes_console;   {$APPTYPE CONSOLE}   uses SysUtils, Printers;   var i : integer; var f : text; Begin AssignPrn(f); rewrite(f); Printer.Canvas.Font.Size := 24; for i:=1 to 10 do writeln(f,'i =',i:3); CloseFile(f);   readln; end.

---

Regarde le résultat sur ton imprimante, et constate:

par défaut, il n'y a pas de marges (au sens large : gauche, droite, haut, bas), il faudra gérer tout cela, ce n'est pas difficile, mais je ne vois pas trop l'intérêt de faire tout ce travail pour imprimer un fichier texte, autant le faire via un simple éditeur de texte.

Mais si tu y tiens, il faudra une deuxième variable de type "Text", qui te servira à lire le fichier en question, et faire une boucle qui devrait ressembler à ceci:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

... var s : string; fpr, fimp : text; { fpr = celui qui va servir pour AssignPrn,   fimp = celui qu'on veut imprimer }   ... { je suppose qu'arrivé ici, les initialisations sont toutes faites,   y compris l'ouverture des fichiers, bref, tout ce qu'il faut }   while not(eof(fimp)) do begin readln(fimp,s); writeln(fpr,s); end; ... { penser à fermer les fichiers ! }

---

En espérant t'avoir été utile

ok

J'ai trouvé un petit exemple dans un de mes boukin...

Voila le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

uses SysTuils, Printers, Graphics;   var PrintFile: TextFile;   begin AssginPrn (PrintFile); Printer.canvas.font.name := 'Times New Roman'; Printer.Canvas.font.size := 14; Printer.Canvas.Font.Style := [fsBold, fsItalic]; Rewrite (PrintFile); Writeln (PrintFile, 'Hello'); CloseFile (PrintFile); end;

---

Je sais que mes questions sur les operations que je dois farie ne sont souvent pas tres tres logique mais je dois faire des operation bien précises pour ce project dont celle la par exemple.
Je vais essayer de me debrouiller avec ca... merci comme même

FX

hi,

Citation:

---

Envoyé par braecking

Je sais que mes questions sur les operations que je dois farie ne sont souvent pas tres tres logique mais je dois faire des operation bien précises pour ce project dont celle la par exemple.
Je vais essayer de me debrouiller avec ca... merci comme même

---

Qu'as-tu à faire précisément ? La solution à utiliser en dépend totalement (La Palisse, merci).

L'impression en utilisant le Canvas de Printer est beaucoup plus souple que vouloir utiliser AssignPrn, à l'exception près qu'on ne peut pas utiliser write ou writeln, l'écriture se faisant alors avec Canvas.TextOut, ce qui implique de faire quelques calculs poour savoir où écrire (exemple, où est le début de la ligne suivante, compte tenu de la hauteur de celle qu'on vient d'écrire), mais ça n'a rien de compliqué, et quand on l'a fait une fois, c'est pratiquement du copier/coller pour plus tard, et, en utilisant le même code sur le Canvas d'une fenêtre, tu peux visualiser ce que sera le résultat (en simplifiant quelque peu).

ok j'ai réussi, c'a marche sans probleme... suvit lexemple que j'avait et j'ai adapté:yaisse2:

:merci: quand meme

FX