<!--CodeS-->
procedure TRflipkwans2_pform.QuickRep1NeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  if i <= maxint then
  begin
    MoreData := True;
    if  Rflipkwans1form.Grid1.colors[0,i] = $ccccff then
    begin
      DetailBand1.ForceNewPage := true;
      with Rflipkwans1form do
      begin
        a1.Caption := Grid1.Cells[0,i];
        a2.Caption := Grid1.Cells[8,i];
        if length(trim(Grid1.Cells[1,i])) = 8 then   //4자
        begin
          a3.Caption := copy(Grid1.Cells[1,i],1,2) + ' '
                       +copy(Grid1.Cells[1,i],3,2) + ' '+copy(Grid1.Cells[1,i],5,2)+ ' '
                       +copy(Grid1.Cells[1,i],7,2);
        end
        else if length(trim(Grid1.Cells[1,i])) = 4 then   //2자
        begin
          a3.Caption := copy(Grid1.Cells[1,i],1,2) + '     '
                  +copy(Grid1.Cells[1,i],3,2) ;
        end
        else            //그외 3자포함
        begin
          a3.Caption := copy(Grid1.Cells[1,i],1,2) + ' '
                       +copy(Grid1.Cells[1,i],3,2) + ' '+copy(Grid1.Cells[1,i],5,2);
        end;
        if length(trim(Grid1.Cells[5,i])) = 8 then   //4자
        begin
          a4.Caption := copy(Grid1.Cells[5,i],1,2) + ' '
                       +copy(Grid1.Cells[5,i],3,2) + ' '+copy(Grid1.Cells[5,i],5,2)+ ' '
                       +copy(Grid1.Cells[5,i],7,2);
        end
        else if length(trim(Grid1.Cells[5,i])) = 4 then   //2자
        begin
          a4.Caption := copy(Grid1.Cells[5,i],1,2) + '     '
                       +copy(Grid1.Cells[5,i],3,2) ;
        end
        else            //그외 3자포함
        begin
          a4.Caption := copy(Grid1.Cells[5,i],1,2) + ' '
                       +copy(Grid1.Cells[5,i],3,2) + ' '+copy(Grid1.Cells[5,i],5,2);
        end;
        a5.Caption := Grid1.Cells[6,i];
        a6.Caption := Grid1.Cells[7,i];
      end;
    end
    else begin
      DetailBand1.ForceNewPage := false; // ffffff
    end;
    inc(i);
  end
  else begin // if i <=MaxInt then
    MoreData := false;
    DetailBand1.ForceNewPage := false;
  end;
end;
<!--CodeE-->

cell색이 ccccff인것만 한장씩 출력할려고 합니다.

1,2,3,4,5 row가있을시
3,5번을 선택해서 출력하면
3번이 두장나오고 5번이 한장나옵니다ㅡㅜ

또 다르게 나름대로 해봤는데..
3번만 나오고 5번은 나오지 않고 막 그럽니다 도와주세요ㅜ-ㅜ