[code delphi]
private
pgcount:integer;
...
procedure TForm1.ToolButton4Click(Sender: TObject);//翻到最后一页
begin
QRPreview1.PageNumber:=pgcount;
end;

procedure TForm1.QRPreview1PageAvailable(Sender: TObject;
PageNum: Integer);
begin
pgcount:=pagenum;
end;
[/code]
首先 ToolButton4Click无效 我将 ' inttostr(pgcount) ' 导出到Label1.caption显示的却是0

为何得不到总页数？

我昏 调整成 QRPreview1.QRPrinter.PageCount 即可