Bonjour les développeurs

Je souhaite afficher une page QuickReport en paysage. Je m'y prends ainsi:
Dans une fiche Form1 j'ai initialisé l'orientation du Quickrep en paysage.
Puis dans la fiche 2, j'ai écrit :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
 
procedure TForm2.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
  QRPreview1.QRPrinter.Orientation:=poLandscape;
end;
A l'éxécution, le report est en portrait.

Le code exact provient de qusoft, l'application est Range.dpr, pour ceux que cela renseigne, où je n'ai rajouté que les détails précédents.

Merci pour toute réponse