为何得不到QRPreview的总页数？(50分)

# private
# pgcount:integer;

# ...
# procedure TForm1.ToolButton4Click(Sender: TObject);//翻到最后一页
# begin

# QRPreview1.PageNumber:=pgcount;

# end;

#
# procedure TForm1.QRPreview1PageAvailable(Sender: TObject;

# PageNum: Integer);

# begin

# pgcount:=pagenum;

# end;

首先 ToolButton4Click无效 我将 '+inttostr(pgcount)+' 导出到Label1.caption显示的却是0
为何得不到总页数？

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

我也尝试过 放一个QRPDFFilter上去
可老是提示File not found...

fastReport有类似控件，建议用fr，
要不看看fr中相关控件的源码

Savedialog 想保存成PDF
QR 如何实现啊~

去研究QrPDFfilter的代码？