编程论坛 → Delphi论坛

谁能帮我解决一个报表上的问题

annykuang 发布于 2007-01-22 11:28， 555 次点击

我在生成报表后,只能显示 : 如第 1 页,但不能显示总共 N 页, 我无法得出N的值,谁能告诉我一下啊.谢谢!

4 回复

xu20002007-01-22 12:29

你用的是什么报表？

annykuang2007-01-22 15:34

Quick Report和Fast Report

xu20002007-01-22 16:28

Fast Report的说明文档中已经明确的说不能统计总页数，除非运行两次。
Quick Report的办法如下。
访问QuickReport控件的 QRPrinter.PageCount，在之前得Prepare

var
PageCount : Integer;
begin
with TQuickReport2.Create(Application) do
begin
try
Prepare;
PageCount :=QRPrinter.PageCount;
// 这里调用打印窗体里的过程，将页数（PageCount）做为参数传入
PreviewModal;
finally
Free;
end;

annykuang2007-01-22 16:34

谢谢啊!