Ver Mensaje Individual
  #2  
Antiguo 06-06-2015
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
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
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 06-06-2015 a las 21:32:53.
Responder Con Cita