Imprimer le texte d'un memo et d'un .txt [Résolu]

Signaler
Messages postés
233
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
26 juin 2011
-
Messages postés
233
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
26 juin 2011
-
Bonjour, bonjour,
tout d'abord je tien à remercier le (ou les) webmaster(s) et webdesigner(s) ce site est vraiment top...chapeau!

donc je disait...:
je souhaiterai savoir comment faire pour imprimer le texte d'un memo (j'ai trouvé pour d'autre composant mais pas pour le memo) avec un bouton et aussi imprimer le texte d'un fichier .txt
en espèrant une réponse complète...

merci.

---------------------
Jack NUMBER
---------------------

4 réponses

Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
9
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 !
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Modérateur
Dernière intervention
9 janvier 2013
28
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
Messages postés
1418
Date d'inscription
samedi 12 juin 2004
Statut
Membre
Dernière intervention
5 juillet 2010
9
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 !
Messages postés
233
Date d'inscription
jeudi 30 septembre 2004
Statut
Membre
Dernière intervention
26 juin 2011
1
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
---------------------