Fórum QRPreview perquisa... #263665

Olá pessoal..

Já consegui visualizar o Relatório através do QRPreview....
Sendo que para visualizar a primeira página só consegui vizualizar fazendo loop, e com o loop o formulário treme até chegar ao primeiro registro... alguém pode me dar um dica....


Próximo
QRPreview1.PageNumber:= QRPreview1.PageNumber +1;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);

Anterior
QRPreview1.PageNumber:= QRPreview1.PageNumber -1;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);

Ultimo
QrPreview1.PageNumber := QrPreview1.QrPrinter.PageCount;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);


Sendo que para visualizar a primeira página só consegui vizualizar fazendo loop, e com o loop o formulário treme até chegar ao primeiro registro...

O primeiro

Primeiro
if QRPreview1.PageNumber > 1 then
begin
repeat
QRPreview1.PageNumber:= QRPreview1.PageNumber -1;

until QRPreview1.PageNumber = 1;
end;
label2.caption:= ´Página ´+inttostr(QRPreview1.PageNumber);

/////Não funcionou... e nem deu mensagem de erro...
// QRPreview1.PageNumber:= QrPreview1.QRPrinter.firstPage;