Impression RichMemo.print TprintParams

Bonjour
Comment initialiser printParams.margins ?

Bonjour,

Citation:

---

Envoyé par sematimo

Bonjour
Comment initialiser printParams.margins ?

---

A mon avis, il faut passer par un Printer.canvas. Il y a un exemple dans le fil https://forum.lazarus.freepascal.org...?topic=47336.0

bb

J'ai trouvé plus simple

Code:

---

1 2 3 4 5 6 7 8 9

prm.SelStart:=RichMemo1.SelStart; prm.SelLength:=RichMemo1.SelLength; prm.Margins.Top := 30; prm.Margins.Bottom := 30; prm.Margins.Left := 80; prm.Margins.Right := 30; prm.JobTitle:='MyText'; RichMemo1.Print(prm);

---