报表预览问题

Question

bpc,能否也给我具体程序？我的Email:[email protected],多谢！

Answer 1

用QRPreview就可以做预览界面了，如果用QuickReport。

Answer 2

用TQuickRep恐怕不行，TQRPreview就可以。在Show 之前设置要浏览的页码，如QRPreview1.PageNumber:=3。

Answer 3

用quickreppreview控件做预览界面，配合按钮可以做成全中文的
在quickrep的onpreview事件中：
procedure TFUR02.QuickRep1Preview(Sender: TObject);
begin
qrpreview1.QRPrinter := quickrep1.QRPrinter ;
end;并加入一下处理：
procedure TFUR02.QRPreview1PageAvailable(Sender: TObject;
  PageNum: Integer);
begin
Screen.Cursor := crDefault;
  Pcount := Qrpreview1.QRPrinter .PageCount ;
  if pageid = 0 then pageid := 1;
end;procedure TFUR02.ToolButton2Click(Sender: TObject);//
begin
qrpreview1.ZoomToFit ;
end;procedure TFUR02.ToolButton3Click(Sender: TObject);
begin
qrpreview1.ZoomToWidth ;
end;procedure TFUR02.ToolButton4Click(Sender: TObject);
begin
qrpreview1.Zoom := 100;
end;procedure TFUR02.ToolButton6Click(Sender: TObject);//第一页
begin
pcount := qrpreview1.QRPrinter .PageCount ;
  qrpreview1.PageNumber := 1;
  pageid := 1;
end;procedure TFUR02.ToolButton7Click(Sender: TObject);//上一页
begin
pcount := qrpreview1.QRPrinter .PageCount ;
  if pageid > 1 then
  begin
    pageid := pageid - 1;
    qrpreview1.PageNumber := pageid;
  end;
end;procedure TFUR02.ToolButton8Click(Sender: TObject);//下一页
begin
pcount := qrpreview1.QRPrinter .PageCount ;
  if pageid < pcount then
  begin
   pageid := pageid + 1;
    qrpreview1.PageNumber := pageid;
  end;
end;procedure TFUR02.ToolButton9Click(Sender: TObject);//最后一页
begin
pcount := qrpreview1.QRPrinter .PageCount ;
  qrpreview1.PageNumber := pcount;
  pageid := pcount;
end;procedure TFUR02.ToolButton10Click(Sender: TObject);//关闭
begin
qrpreview1.Visible := false ;
  toolbar1.Enabled := false;
end;procedure TFUR02.Button2Click(Sender: TObject);//打印
begin
Quickrep1.Print;
end;