Quickreport no me imprime la orientacion en horizontal

[ecfisa]

Hola nabucodonosor.

Hice esta prueba simple y me funciona perfectamente:

Código Delphi [-]
...
implementation

uses Printers, QrPrntr;

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
  QuickRep1.Page.PaperSize   := Letter;      // Carta
  QuickRep1.Page.Orientation := poLandScape; // horizontal
end;

procedure TForm1.btnPreviewClick(Sender: TObject);
begin
  QuickRep1.Preview;
end;

Saludos.