Páginas
Bom dia, eu uso o qreport e gostaria de colocar nas páginas o número da página e o total de página que possue o relatório.
Ex: Página: 1/10, Página: 2/10 .....
Ex: Página: 1/10, Página: 2/10 .....
Fafp
Curtidas 0
Respostas
Guinther
03/08/2009
Use essa função:
function QRContar(const QR: TQuickRep) : integer;
begin
Result := 0;
try
QR.Prepare;
Result := QR.QRPrinter.PageCount;
finally
QR.QRPrinter.Free;
QR.QRPrinter := nil;
end;
end;
Defina uma variável tipo:
private
Total : integer;
Depois:
Total := QRContar(QuickRep1);
Coloque um QRLabel no footer do seu relatório. No BeforePrint escreva:
QRLabel1.Caption := Format(´Página ¬d de
¬d´,[QuickRep1.PageNumber, Total]);
O resultado será:
Página 1 de 20
Att,
Guinther Pauli
Editor Geral Revista ClubeDelphi
Editor Geral Revista .net Magazine Brasil
Microsoft Certified: MCP,MCAD,MCSD.NET,MCPD,MCTS
Delphi Certified: 3,5,6,7,2005,2006,Web,Kylix
http://guintherpauli.blospot.com
http://twitter.com/guintherpauli
function QRContar(const QR: TQuickRep) : integer;
begin
Result := 0;
try
QR.Prepare;
Result := QR.QRPrinter.PageCount;
finally
QR.QRPrinter.Free;
QR.QRPrinter := nil;
end;
end;
Defina uma variável tipo:
private
Total : integer;
Depois:
Total := QRContar(QuickRep1);
Coloque um QRLabel no footer do seu relatório. No BeforePrint escreva:
QRLabel1.Caption := Format(´Página ¬d de
¬d´,[QuickRep1.PageNumber, Total]);
O resultado será:
Página 1 de 20
Att,
Guinther Pauli
Editor Geral Revista ClubeDelphi
Editor Geral Revista .net Magazine Brasil
Microsoft Certified: MCP,MCAD,MCSD.NET,MCPD,MCTS
Delphi Certified: 3,5,6,7,2005,2006,Web,Kylix
http://guintherpauli.blospot.com
http://twitter.com/guintherpauli
GOSTEI 0