使用QuickRep时，如果报表多于一页，如何在报表的前一页加上"接后页",后一页加上"承前页"? 或者谁能发给我份QuickRep的帮助？

Question

在quickrep的表首、表末加一个qrlabel，隐藏的。
如果判断页数大于1，则显示并赋上你想要显示的值。

Answer 1

easy 在该 Label 的 OnPrint 事件中修改其 Caption

Answer 2

easy 在该 Label 的 OnPrint 事件中修改其 Caption

Answer 3

加入一个qrpreview控件，如下可以实现：procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.Preview;
end;procedure TForm1.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
  QRLabel1.Caption := '';
  QRLabel2.Caption := '';  if qrpreview1.QRPrinter.PageCount > 1 then
  begin
    if qrpreview1.PageNumber  = 1 then
    begin
      QRLabel1.Caption := '';
    end else
      QRLabel1.Caption := '前一页';    if qrpreview1.PageNumber  = qrpreview1.QRPrinter.PageCount then
    begin
      QRLabel2.Caption := '';
    end else
      QRLabel2.Caption := '后一页';
  end;
end;procedure TForm1.QuickRep1Preview(Sender: TObject);
begin
  qrpreview1.QRPrinter := quickrep1.QRPrinter ;
end;

Answer 4

TO:cobi(我是小新，我只有5岁)
qrpreview控件怎么用？运行起来只有很小一点，无法预览！！