高分求解一个打印报表的问题(郁闷很久了)，也可到其础区回答，都给分！

Question

1、当某一记录的某一个字段值（ChengJi）满足某一条件时动态设置这条件记录的前景色（TQRShape.Font.Color）或背影色（TQRShape.Brush.Color）？
2、如何获得打印机正在打印的页码及共计页数，还有打印机的打印进度？我用TQuickRep做报表，因为报表比较多，先前已做好，现在耍要解决的就这两个问题，所以不想也来不及再改用其它控件了。谢谢帮忙！

Answer 1

你这种可以用ONPRITER事件进行控制,而且打印进度REP有这种状态可以选择的.页码你可以读出QUICKREP的页码属性.

Answer 2

系统的进度并不代表实际的进度呀！读取的页码也只有当前页呀，没有总页码耶，好像直接打印的话也取不出打印到哪一页了呀！OnPrinter事件里怎么写呀？

Answer 3

www.qusoft.com
你先去官方网站看看

Answer 4

这段代码是在DBGrid中改变列的颜色的
你看看有帮助没？
procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if (DataCol = 1)and(ADOTable1.FieldByName('UserName').Value = 'Administrator') then
  begin
    DBGrid1.Canvas.Font.Color := clRed;
    DBGrid1.Canvas.Brush.Color := clLime;
  end;
  DBGrid1.DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;以上代码仅把第一列（从零列开始），第UserName='Administgrator'行的单元格的字体颜色改为红色，背景颜色改为亮绿色

Answer 5

有支持D7的FastReport吗？
在哪里下，请给我连接吧，谢谢！

Answer 6

我有FastReport使用指南
要不要

Answer 7

http://www.delphibox.com/article.asp?articleid=1110

Answer 8

、当某一记录的某一个字段值（ChengJi）满足某一条件时动态设置这条件记录的前景色（TQRShape.Font.Color）或背影色（TQRShape.Brush.Color）？
// 在DetailBand的BeforePrint事件中控制
   if 条件成立 then
      QrShape1.Brush.Color:=xxxx
   else
      QrShape1.Brush.Color:=xxxx
  
2、如何获得打印机正在打印的页码及共计页数，还有打印机的打印进度？
  QuickRep1.Prepare;
  QuickRep1.QRPrinter.PageNumber;
  QuickRep1.QRPrinter.PageCount;
  QuickRep1.QRPrinter.Progress;
  //试试看

Answer 9

用BERG的GRIDVIEW再另加一个GRIDPRINT不就搞定了吗?
先提是要换控件.你说的不换控件,我还没想到更好的办法

Answer 10

该问题已得到解决，谢谢大家热心帮助！procedure TForm1.QuickRep1NeedData(Sender: TObject; var MoreData: Boolean);
begin
MoreData:=(I<13);
QRLabel3.Caption:='第 '+IntToStr(I)+' 行';
if i<>0 then ADOTable1.Next;
IF (i mod 2)=0  then
  begin
  QRShape1.Brush.Color:=$00FFD5AA;
  QRLabel4.Caption:='偶数行，变色';
  end
else
  begin
  QRShape1.Brush.Color:=clWhite;
  QRLabel4.Caption:='奇数行，不变色';
  end;
I:=I+1;
end;