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

cs_JackNUMBER
Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
26 juin 2011
- 15 janv. 2005 à 15:25 - Dernière réponse : cs_JackNUMBER
Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
26 juin 2011
- 16 janv. 2005 à 15:40
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
---------------------
Afficher la suite 

Votre réponse

4 réponses

Meilleure réponse
ni69
Messages postés
1529
Date d'inscription
samedi 12 juin 2004
Dernière intervention
5 juillet 2010
- 15 janv. 2005 à 19:09
3
Merci
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 !

Merci ni69 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

Commenter la réponse de ni69
cs_Delphiprog
Messages postés
4580
Date d'inscription
samedi 19 janvier 2002
Dernière intervention
9 janvier 2013
- 15 janv. 2005 à 19:32
0
Merci
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
Commenter la réponse de cs_Delphiprog
ni69
Messages postés
1529
Date d'inscription
samedi 12 juin 2004
Dernière intervention
5 juillet 2010
- 15 janv. 2005 à 20:10
0
Merci
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 !
Commenter la réponse de ni69
cs_JackNUMBER
Messages postés
236
Date d'inscription
jeudi 30 septembre 2004
Dernière intervention
26 juin 2011
- 16 janv. 2005 à 15:40
0
Merci
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
---------------------
Commenter la réponse de cs_JackNUMBER

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.