O
oicu
Unregistered / Unconfirmed
GUEST, unregistred user!
这样!俺做的一个报表,要求在页脚能显示:“第X页 共X页” 其中为了显示“共X页”,用了一下语句:
Procedure TForm1.BitBtn6Click(Sender:TObject);
begin
Form2.QuickRep1.Prepare;
try
Form2.QRLabel8.Caption:=IntToStr(Form2.QuickRep1.QRPrinter.PageCount);
//上句用于显示总页数
finally
Form2.QuickRep1.QRPrinter.Free;
Form2.QuickRep1.QRPrinter:=nil;
end;
Form2.QuickRep1.Preview;
Form2.Free;
Form2:=nil;
end;
但奇怪的是无论怎么运行,总页数都只显示0! 不知怎么搞!请问,,总页数如何显示?!
Procedure TForm1.BitBtn6Click(Sender:TObject);
begin
Form2.QuickRep1.Prepare;
try
Form2.QRLabel8.Caption:=IntToStr(Form2.QuickRep1.QRPrinter.PageCount);
//上句用于显示总页数
finally
Form2.QuickRep1.QRPrinter.Free;
Form2.QuickRep1.QRPrinter:=nil;
end;
Form2.QuickRep1.Preview;
Form2.Free;
Form2:=nil;
end;
但奇怪的是无论怎么运行,总页数都只显示0! 不知怎么搞!请问,,总页数如何显示?!