Imprimer une ligne et décaler la page

Bonjour

Lors de la réinstallation d'une machine, j'ai perdu un petit programme :cry: qui permet d'imprimer une ligne à partir d'un fichier text; l'imprimante (EPSON LX 300+) doit imprimer la ligne et décale la page d'un centimètre pour qu'on puisse imprimer d'autre lignes sur la même page.

Merci d'avance

Bonjour !

Pour décaler, tu peux peut-être simplement ajouter un retour chariot (#13) et 2 ou 3 line feeds (#10) à la ligne que tu imprimes :

Code:

---

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

Program IMPRIM;   Uses Printer;   Var Buffer : String; Fichier : Text;   Begin (* Lecture de la ligne *) Assign(Fichier,'xxxx'); Reset(Fichier); ReadLn(Fichier,Buffer); Close(Fichier); (* Ajout des CR et LF *) Buffer := Buffer + #13#10#10; (* Impression de la ligne *) Write(Lst,Buffer); End.

---

je suis desolé mais moi je ne conais rien en pascal vous pouver mexpliquer les ligne de code

merci

Allez, c'est dimanche ;)

Code:

---

Uses Printer;

---

Permet d'utiliser l'unité Printer, dans laquelle est déclaré un fichier texte directement lié à l'imprimante, Lst.

Code:

---

1 2	Assign(Fichier,'xxxx'); Reset(Fichier);

---

Ouvre le fichier qui contient le texte à imprimer. 'xxxx' est le nom du fichier.

Code:

---

ReadLn(Fichier,Buffer);

---

Lit la ligne à imprimer et la charge en mémoire dans la chaîne Buffer.

Code:

---

Close(Fichier);

---

Ferme le fichier.

Code:

---

Buffer := Buffer + #13#10#10;

---

Ajoute un retour chariot et deux sauts de ligne au texte à imprimer.

Code:

---

Write(Lst,Buffer);

---

Imprime la chaîne Buffer.

merci

est ce que tu peut m'envoyer le fichier .exe de ce programme sachant que le fichier .exe et le fichier text (fiche.txt) seront placés dans la racine systelme C:

merci d'avance

Euh... t'as pas de compilateur ? :cfou:

:arrow: L'exe est ici

merci ami c tres jontil , sa marche mnt :D