QuickReport activar/desactivar QrExpr segun pagina

[marilinspi]

Hola a todos, necesito que por ejemplo: un reporte de 5 paginas, de la pagina 1 a 4 me muestre un QrExpr

Código Delphi [-]
QrExpr1.enable=True
QrExpr2.enable=False

y en la pagina 5 me muestre otro

Código Delphi [-]
QrExpr1.enable=False
QrExpr2.enable=True

e probando en OnEndPage y OnStarPage, pero no llego al resultado que necesito, debe ser sencillo, solo que no encuentro donde ponerlo.... gracias desde ya.

[ecfisa]

Hola marilinspi.

No sé como tenes organizada la impresión pero tendrías que evaluar el número de página en el evento OnPrint de cada TQRExpr y actuar en consecuencia.

Un ejemplo:

Código Delphi [-]
...
implementation 

var
  PgNumber: Integer;

// QRBand ejemplo donde residen los QRExpr
procedure TForm1.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
begin
  PgNumber := QuickRep1.QRPrinter.PageNumber;
  if PgNumber = 0 then PgNumber := 1;
end;

// Evaluar página para QRExpr1
procedure TForm1.QRExpr1Print(sender: TObject; var Value: String);
begin
  if PgNumber = 5 then       // ¿ Es pag. 5 ?
    Value := '';             // no mostrar valor de QRExpr1
end;

// Evaluar página para QRExpr2
procedure TForm1.QRExpr2Print(sender: TObject; var Value: String);
begin
  if PgNumber in [1..4] then  // ¿ Es pag. 1, 2, 3, 4 ?
    Value := '';              // no mostrar valor de QRExpr2
end;
...

Saludos

[marilinspi]

muchas gracias Ecfisa por tu respuesta... lo termine solucionando así:

en el botón que llama el reporte:

Código Delphi [-]
  FormRep.QuickRep1.Prepare ;
  FormRep.Paginas := FormRep.QuickRep1.QRPrinter.PageCount ;
  FormRep.QuickRep1.Preview;

y después en el evento OnStartPage del QuickReport:

Código Delphi [-]
  
if  QuickRep1.QRPrinter.PageNumber=Paginas then
  begin
    QRESaldoParcial.Enabled:=False;
    QRESaldoFinal.Enabled:=True;
  end
  else
  begin
    QRESaldoParcial.Enabled:=True;
    QRESaldoFinal.Enabled:=False;
  end