현재 고객을 조회해서..dm발송용 스티커에 인쇄를 하려합니다.
스티커는 가로*세로 가 2*10으로 되어 있습니다.
스트링그리드에서 불러 올때 2개씩 끊어서 불러오려고 밑에와 같이 코딩했는데여 그리드에 조회된 갯수가 1명이면 미리보기에 나오지를 않네여..쩝
그리고..dm발송용 용지이기 때문에..8명을 출력하고 맨밑에 2개가 남을 경우가 있습니다.
그럴경우 출력 조건을 어떨게 주어야 하나여..쩝


procedure Trpt_custs.QuickRepNeedData(Sender: TObject;
  var MoreData: Boolean);
begin
  rpt_custs.ShowProgress := true;
       if i <= frm_custs.StringGrid1.RowCount then
         begin
           q1.Caption := frm_custs.StringGrid1.Cells[8,i];
           q2.Caption := frm_custs.StringGrid1.Cells[0,i];
           q3.Caption := frm_custs.StringGrid1.Cells[7,i];
           q5.Caption := frm_custs.StringGrid1.Cells[8,i+1];
           q6.Caption := frm_custs.StringGrid1.Cells[0,i+1];
           q8.Caption := frm_custs.StringGrid1.Cells[7,i+1];
          end;
           i:= i + 2;
           moredata := i <=frm_custs.StringGrid1.RowCount;
end;

procedure Trpt_custs.QuickRepBeforePrint(Sender: TCustomQuickRep;
  var PrintReport: Boolean);
begin
i:= 0;
end;