如何使用QReport 控件控制预览/打印 页的范围？

在使用   QReport   控件进行预览和打印时如何控制预览/打印   页的范围？如：我想预览/打印第2-5页的内容。 问题点数：30、回复次数：2Top

1 楼cobi（我是小新）回复于 2001-11-14 15:16:22 得分 30

如果单纯用QReport可能实现不了，需要使用qrpreview控件，配合自己定义的工具栏就可以实现了。  
  procedure   TFUR02.Button1Click(Sender:   TObject);  
  begin  
  groupbox1.Enabled   :=   false;  
      Button1.Enabled   :=   false;  
      button2.Enabled   :=   false;  
      Button3.Enabled   :=   false;  
      try  
      with   query1   do  
          begin  
              close;  
              Sql.Clear   ;  
              Sql.Add   (Sqltxt);  
              prepare;  
              open;  
          end;  
          quickrep1.Preview   ;  
          qrpreview1.Visible   :=   true;  
          toolbar1.Enabled   :=   true;  
      finally  
      groupbox1.Enabled   :=   true;  
          Button1.Enabled   :=   true;  
          button2.Enabled   :=   true;  
          Button3.Enabled   :=   true;  
      end;  
   
  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.Button3Click(Sender:   TObject);  
  begin  
      AForm   :=   nil   ;  
      Close;  
  end;  
   
  procedure   TFUR02.FormClose(Sender:   TObject;   var   Action:   TCloseAction);  
  begin  
  Fmain.StatusBar1   .Panels   [1].Text   :=   '';  
  Action   :=   cafree;  
  end;  
   
  procedure   TFUR02.RadioGroup2Click(Sender:   TObject);  
  begin  
  case   radiogroup2.ItemIndex   of  
      0   :   begin  
                  updown1.Enabled   :=   true;  
                  updown2.Enabled   :=   false;  
                  end;  
          1   :   begin  
          updown2.Enabled   :=   true;  
                  updown1.Enabled   :=   false;  
          end;  
      end;  
  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;  
  Top

2 楼hlilna（Bulls）回复于 2001-11-14 15:17:24 得分 0

收藏Top

相关问题

• 预览
• 控件
• 打印
• qrpreview
• qreport
• toolbutton
• pageid
• qrprinter
• tobject
• beginqrpreview

• 帖主：danny1123
• cobi

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载