continuar una numeracion con Qreport

[[Lepe]]

Probado con QuickReport que viene en Delphi 7 y funcionando:

Creamos una variable donde guardamos el número de página (number)

Código Delphi [-]
class TfrmQR3Demo = Class(TForm);
...
  private
    { Private declarations }
    Number : integer;
    procedure Myprint(Sender:TObject; var Value:string);
    procedure FormCreate(Sender: TObject);
end;

En el OnCreate de la ventana:

Código Delphi [-]
procedure TfrmQR3Demo.FormCreate(Sender: TObject);
var i: integer;
begin
// rescatar el valor inicial de la base de datos 
// y asignarlo a la variable Number

  Number := 3;
end;

Yo he hecho todo por código delphi:
- crear la banda
- asignar propiedades
- Crear un qrlabel y asignar su evento
- dar sus coordenadas, etc

Código Delphi [-]
aReport.Bands.HasPageFooter := true;
aReport.Bands.PageFooterBand.Enabled:= True;
aReport.Bands.PageFooterBand.Visible:= true;
aReport.Bands.PageFooterBand.Height:= 90;
aReport.Bands.PageFooterBand.Color := clCream;
with TQRLabel(aReport.Bands.PageFooterBand.AddPrintable(TQRLabel)) do
begin
  Left := 20;
  top := 40;
  AutoSize:= False;
  width := 300;
  Enabled:= true;
  Caption := '00'; // si se omite esta línea no sale nada ¿cosas del QuickReport?
  OnPrint := MyPrint;

end;

Si tienes un QuickReport en tiempo de diseño:
- coloca un qrLabel dentro del FooterBand.
- Asegúrate de escribir algo en su propiedad Caption por ejemplo dos ceros '00'
(si se deja vacía,QuickReport no ejecuta el evento OnPrint (nu sé por qué)
- Asigna el evento OnPrint con el nombre que quieras (doble clic en el inspector de objetos y corriendo que es gerundio). Debe quedar más o menos así:

Código Delphi [-]
procedure TfrmQR3Demo.Myprint(Sender: TObject; var Value: string);
begin
  Inc(Number,1); 
  Value := IntToStr(Number);
end;

Queda guardar el valor de Number en la Base de datos, supongo que podrás hacerlo en el evento OnAfterPrint del quickReport.

Edito: Por cierto, mi nombre no es raro, es el nombre de mi ciudad. El tuyo si que es raro

Saludos