Imprimer le texte d'un memo et d'un .txt
Résolu
cs_JackNUMBER
Messages postés
233
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
26 juin 2011
-
15 janv. 2005 à 15:25
cs_JackNUMBER Messages postés 233 Date d'inscription jeudi 30 septembre 2004 Statut Membre Dernière intervention 26 juin 2011 - 16 janv. 2005 à 15:40
cs_JackNUMBER Messages postés 233 Date d'inscription jeudi 30 septembre 2004 Statut Membre Dernière intervention 26 juin 2011 - 16 janv. 2005 à 15:40
4 réponses
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
12
15 janv. 2005 à 19:09
15 janv. 2005 à 19:09
Uses Printers;
procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
a: Integer;
F: TextFile;
Stg:String;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200)); // Marge de 200 pixels autour de la feuille
BeginDoc;
// Ici pour imprimer le contenu du mémo :
for a := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (a * Canvas.TextHeight(Memo1.Lines.Strings[a])), Memo1.Lines.Strings[a]);
// Ici pour imprimer le contenu d'un fichier txt :
AssignFile(F,'C:\FichierTexte.txt');
Reset(F);
a := 0;
repeat
Readln(F,Stg);
Canvas.TextOut(200,200 + (a * Canvas.TextHeight(Stg)), Stg);
inc(a);
until EOF(F);
CloseFile(F);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r); Cette instruction imprime un rectangle autour de la feuille
EndDoc;
end;
end;
Voilà...
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
procedure TForm1.Button1Click(Sender: TObject);
var
r: TRect;
a: Integer;
F: TextFile;
Stg:String;
begin
with Printer do
begin
r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200)); // Marge de 200 pixels autour de la feuille
BeginDoc;
// Ici pour imprimer le contenu du mémo :
for a := 0 to Memo1.Lines.Count do
Canvas.TextOut(200,200 + (a * Canvas.TextHeight(Memo1.Lines.Strings[a])), Memo1.Lines.Strings[a]);
// Ici pour imprimer le contenu d'un fichier txt :
AssignFile(F,'C:\FichierTexte.txt');
Reset(F);
a := 0;
repeat
Readln(F,Stg);
Canvas.TextOut(200,200 + (a * Canvas.TextHeight(Stg)), Stg);
inc(a);
until EOF(F);
CloseFile(F);
Canvas.Brush.Color := clBlack;
Canvas.FrameRect(r); Cette instruction imprime un rectangle autour de la feuille
EndDoc;
end;
end;
Voilà...
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
15 janv. 2005 à 19:32
15 janv. 2005 à 19:32
Faut penser à utiliser la fonction "rechercher sur le site" en haut de la page
Voir aussi le code source de Manchester : IMPRIMER LE CONTENU D'UN MEMO AVEC TABS ET MARGES
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html
Voir aussi le code source de Manchester : IMPRIMER LE CONTENU D'UN MEMO AVEC TABS ET MARGES
Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html
ni69
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
12
15 janv. 2005 à 20:10
15 janv. 2005 à 20:10
Tout à fait d'accord avec toi DelphiProg
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
@+
Bonne Prog'
Nico
<HR>
N'oubliez pas de cliquer sur Réponse acceptée lorsque la réponse vous convient !
cs_JackNUMBER
Messages postés
233
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
26 juin 2011
5
16 janv. 2005 à 15:40
16 janv. 2005 à 15:40
désolé, j'ai cherché mais j'ai pas touvé je connai pas les TABS et les MARGES
merci quand même, c'est exactement ce que je voulai
---------------------
Jack NUMBER
---------------------
merci quand même, c'est exactement ce que je voulai
---------------------
Jack NUMBER
---------------------
