Discussion :

[Tolede37]

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 :

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

1
2
3
Printer.BeginDoc
....
Printer.EndDoc

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

[Jipété]

Salut,

Quelle instruction peut me permettre de faire cela

Très probablement Printer.Orientation := poLandscape;

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

Très probablement avant le BeginDoc.

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.

[ThWilliam]

Salut JP,

Je confirme tes "très probablement".

Code :

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

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

[Jipété]

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) :

Code :

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

1
2
3
4
5
6
procedure TForm1.Button1Click(Sender: TObject);
var
  CurrentOrientation: TPrinterOrientation;
begin
   CurrentOrientation:= Printer.Orientation;
   ...