Discussion :

[brahim213]

Bonjour à tous.

J'ai un texte (UTF8) dans un memo1 et je veux l'imprimer.

Quelle est la bonne méthode pour faire ça ?

Merci par avance !

[Roland Chastain]

Bonjour !

Personnellement je n'ai jamais fait cela, mais je vois qu'il y a un article ici (en anglais) :
Using the printer

Le début de l'article est encourageant : Printing is easy in Lazarus.

Bonne chance !

[BeanzMaster]

Bonjour

Tu peux te référer à cette discussion sur le forum anglais.

A+

Jérôme

[jurassic pork]

hello,
pour illustrer les deux réponses précédentes, j'ai mis en pièce jointe un petit projet qui teste les deux types d'impression :

1 - Impression simple utilisant la classe Printer du paquet Printer4Lazarus.



2 - Impression avec aperçu ,mise en page, choix de l'imprimante en utilisant le composant TfrReport du paquet lazReport



Ami calmant, J.P

[brahim213]

Bonjour

Tu peux te référer à cette discussion sur le forum anglais.

A+

Jérôme

merci à votre reponse, mais dans le resultatt d'impression il retourne pas à la ligne, lorsque existe une ligne longue dans le texte à imprimer (wordwrap)

j'ai attaché le project exemple + resultat d'impression (pdf)

[brahim213]

hello,
pour illustrer les deux réponses précédentes, j'ai mis en pièce jointe un petit projet qui teste les deux types d'impression :

1 - Impression simple utilisant la classe Printer du paquet Printer4Lazarus.



2 - Impression avec aperçu ,mise en page, choix de l'imprimante en utilisant le composant TfrReport du paquet lazReport



Ami calmant, J.P

1. En ce que concerne l'impression en utilisant le composant TfrReport du paquet lazReport :
il ya un bug si vous imprimez un texte contenant le symbol "["
par exemple essayer d'imprimer ce texte : simple text contient [ symbole
et voir une exception qui affiche comme ceci :

Project printmemo raised exception class 'EParserError' with message:
Object : Memo1
Band : MasterData1
Page : Page1
Undefined symbol : SYMBO

In file 'lr_class.pas' at line 10317



2. et pour l'impression en utilisant la classe Printer du paquet Printer4Lazarus :
le problem c'est que il retourne pas à la ligne(wordwrap) lorsque existe une ligne trés longue dans le texte à imprimer.

[jurassic pork]

hello,

1. En ce que concerne l'impression en utilisant le composant TfrReport du paquet lazReport :
il ya un bug si vous imprimez un texte contenant le symbol "["
par exemple essayer d'imprimer ce texte : simple text contient [ symbole
et voir une exception qui affiche comme ceci :

Project printmemo raised exception class 'EParserError' with message:
Object : Memo1
Band : MasterData1
Page : Page1
Undefined symbol : SYMBO

pour ce problème voir ici
literal

et pour :

2. et pour l'impression en utilisant la classe Printer du paquet Printer4Lazarus :
le problem c'est que il retourne pas à la ligne(wordwrap) lorsque existe une ligne trés longue dans le texte à imprimer.

WordWrap à True dans le TMemo ?

sinon il y a la méthode à l'arrache :
on lance un notepad par un TProcess :
on copie le contenu du Tmemo dedans par le presse papier par programmation
et on balance un CTRL+P à NotePad par programmation



Ami calmant, J.P

[brahim213]

et pour :


WordWrap à True dans le TMemo ?

Ami calmant, J.P

il est déja WordWrap à true il reste le meme problem c-a-d ne retourne pas à la ligne.

[jurassic pork]

c'est que ton Tmemo est trop large , il contient trop de caractères par lignes

[brahim213]

c'est que ton Tmemo est trop large , il contient trop de caractères par lignes

le même memo1 il wrap le texte sur l'exemple : frReport

[jurassic pork]

hello,
bon je crois que j'ai trouvé une solution pour lazreport :
Il faut passer par une variable string :


1 - Editer le rapport (ex : print.lrf)
2 - Créer une nouvelle catégorie avec une nouvelle variable :
Choisir dans le menu File/Variables List
Dans la fenêtre Variables Editor cliquer sur le bouton Variables
Rentrer un nom de catégorie (exemple TMemo)
et ajouter en dessous le nom de la variable en ajoutant un espace avant le nom de la variable (ex : memo1)
Cliquer sur OK
Mettre la variable dans le rapport :





et ajouter la procédure suivante sur l'événement GetValue du composant frReport

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
procedure TForm1.frReport1GetValue(const ParName: String; var ParValue: Variant );
begin
   if ParName='memo1' then
   ParValue:= Memo1.Text;
end;

résultat :


projet en pièce jointe.


Ami calmant, J.P

[brahim213]

Je vient de le tester et ça marche trés bien cette fois c-à-d avec le symbole [#22320]
avec cette procedure et méthode on peut ignorer les caractères spéciaux reservés à frReport1
Merci