Imprimer en mode paysage

Je travaille Sous Lazarus.
Je voudrais imprimer une enveloppe A5 à partir d'un logiciel de répertoire.
Pour faire cela, il faut que je puisse écrire en mode paysage, car l'enveloppe ne rentre pas dans l'imprimante en horizontal.
Quelle instruction peut me permettre de faire cela
A quel endroit, il faut la placer dans la liste :

Code:

---

1 2 3

Printer.BeginDoc .... Printer.EndDoc

---

Et aussi comment remettre la machine en mode normal en fin d'impression.
Merci à tous

Salut,

Citation:

---

Envoyé par Tolede37

Quelle instruction peut me permettre de faire cela

---

Très probablement Printer.Orientation := poLandscape;

Citation:

---

Envoyé par Tolede37

A quel endroit, il faut la placer dans la liste :
Printer.BeginDoc
....
Printer.EndDoc

---

Très probablement avant le BeginDoc.

Citation:

---

Envoyé par Tolede37

Et aussi comment remettre la machine en mode normal en fin d'impression.
Merci à tous

---

Très probablement Printer.Orientation := poPortrait;

J'ai dit 3 fois "très probablement" car je n'ai jamais testé ce que je viens d'écrire.

Bonne chance, et merci de nous dire si c'est bon ou pas.

Salut JP,

Je confirme tes "très probablement".

Code:

---

1 2 3 4 5 6 7 8 9 10 11

procedure TForm1.Button1Click(Sender: TObject); var CurrentOrientation: TPrinterOrientation; begin CurrentOrientation:= Printer.Orientation; Printer.Orientation:= poLandScape; Printer.BeginDoc; // contenu à imprimer Printer.EndDoc; Printer.Orientation:= CurrentOrientation; end;

---

Cordialement
Thierry

Yop !

Et en plus tu as viré mon retour aux origines en mode brute force, c'est impec (j'avais grave la flemme de chercher) :ccool: :

Citation:

---

Envoyé par ThWilliam

Code:

---

1 2 3 4 5 6

procedure TForm1.Button1Click(Sender: TObject); var CurrentOrientation: TPrinterOrientation; begin CurrentOrientation:= Printer.Orientation; ...

---

---

:plusser: