Discussion :

[Droïde Système7]

Bonjour

Dans l'aide Delphi à un endroit il est spécifié :

Cet exemple utilise un bouton et un mémo sur une fiche. Lorsque l'utilisateur clique sur le bouton, le contenu du mémo est imprimé avec une bordure de 200 pixels autour de la page. Pour exécuter cet exemple, vous devez ajouter l'unité Printers à la clause uses de votre unité.

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.Button1Click(Sender: TObject);
begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;
end;

Mais aucun saut de ligne, simplement deux pipes "||" à ces endroits.

Suis-je déjà bourré à ce point ?

Merci d'avance de vos remarques éclairées.

[EPJSoft]

Non pas bourré il renvoie bien les caractères 13 et 10
tu peux utiliser par contre

Code :

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

1
2
3
4
5
6
 
var
MyRect :TRect;
<...>
MyRect := Rect(200,200,PageWidth-200,PageHeight-200);
DrawText(Canvas.Handle, PChar(Memo1.Lines.Text) , Length(Memo1.Lines.Text), MyRect , 0);

qui n'imprimera pas les retour chariot.

[Gilbert Geyer]

Testé le truc d'EPJSoft : il marche.
... et si tu veux en plus la bordure de 200 pixels autour de la page

Code :

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

1
2
3
4
5
 
                DrawText(... Memo1.Lines.Text ...)
                Canvas.Brush.Color := clNavy;
                Canvas.FrameRect(MyRect);
                EndDoc;

... mais on est dans le cas d'un Memo et non du RichEdit évoqué dans l'autre discussion. Par contre avec DrawText(... RichEdit1.Lines.Text ...) ça imprime idem bien mais les enliminures de couleur, gras, etc disparaissent.

[Droïde Système7]

Bonjour,

Non pas bourré il renvoie bien les caractères 13 et 10

ouffffff

Impec, oui j'ai enfin ces fichus sauts de lignes !

les copains !

Gilbert, tu lis dans mes pensées dommage que pas possible, même pas en Memo de pouvoir fixer ne serait-ce que la taille de la fonte.

Cela est à ce niveau réellement impossible ?

[Gilbert Geyer]

dommage que pas possible, même pas en Memo de pouvoir fixer ne serait-ce que la taille de la fonte.

... il me semble avoir vu sur le site suisse Torry un code d'impression de Mémo et TStrings avec détermination de la taille de fonte. faudrait vérifier

[Gilbert Geyer]

Vérification faite sur le site suisse Torry il y a du code dans la rubrique Printing sous l'intitulé ... print a TMemo, TStringlist, TStrings? où il est fixé la taille de la fonte ... et y'a même dans le lot en prime une procedure PrintHeader(... ) et une procedure PrintFooter(...)
... ça se traduit-t-il pas par ImprimeeEnTete et ImprimerPiedDePage ?

[Droïde Système7]

Gilbert, grâce à toi sur un autre thread, j'ai trouvé mon bonheur, affaire résolue au/en mieux..

Je fais alors ma fine bouche

Ceci dit, après ce post, je sais comment obtenir un saut de ligne entre le couple BeginDoc/EndDoc sur un Memo.

Vérification faite sur le site suisse Torry il y a du code dans la rubrique Printing sous l'intitulé ... print a TMemo, TStringlist, TStrings? où il est fixé la taille de la fonte ... et y'a même dans le lot en prime une procedure PrintHeader(... ) et une procedure PrintFooter(...)
... ça se traduit-t-il pas par ImprimeeEnTete et ImprimerPiedDePage ?

Quoiqu'à en lire ton message juste au dessus... : tentateur va !

aux intervenants de ce thread.