Imprimir O Nº Da Cópia Em Relatório (quickreport)

[Guest Fernando R. Piccini]

Ola Pessoal,

Existe alguma maneira de mostrar no meu relatório qual o número da cópia que esta sendo impressa?

Ex: Suponha-se que mando imprimir um relatório com 3 cópias. Hoje tem como eu saber o número de cópias que é enviada para o QuickReport, porém só o total de cópias, o que preciso é mostrar o numero da copia atual no no relatorio.

Se alguém puder ajudar, fico grato

vlw

[Guest JK]

Colega .... coloque um componente QRLabel no seu report e coloque este codigo antes de imprir

var copias : integer;

begin

copias := 5;

for i:= 1 to copias do

begin

QRelatorio.QRLabel1.Caption := 'Cópia nº : ' + inttostr(i);

QRelatorio.Print;

end;

end;