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
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
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'; 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