Report builder

[apicito]

En evento onStartPage de reporte o del subreporte haz la siguiente selección:

procedure TSesActa.ResultStartPage(Sender: TObject);
var  lPage: TppPage;
begin
  lPage := Result.Engine.Page;
  if (Result.AbsolutePageNo mod 2 = 0) then
    begin
      lPage.PrinterSetup.Orientation:=poPortait;
      lPage.PrinterSetup.MarginTop := PPArriba.Value;
      lPage.PrinterSetup.MarginBottom := PPAbaixo.Value;
      lPage.PrinterSetup.MarginLeft := PPLado.Value;
    end
  else
    begin
      lPage.PrinterSetup.Orientation:=poLandscape;
      lPage.PrinterSetup.MarginTop := PIArriba.Value;
      lPage.PrinterSetup.MarginBottom := PIAbaixo.Value;
      lPage.PrinterSetup.MarginLeft := PILado.Value;
    end;
end;

En este caso estoy cambiando la configuración de la página dependiendo si es una página par o impar.