삭제를 위한 암호를 넣어 주세요

질문내용을 제대로 이해한 건지 모르겠으나 한장의 출력양식에 두개의 표를 그려 놓고 라벨에 동일한 데이터 값을 집어 넣으시면 됩니다. 
2019-04-17 오후 5:38:05

삭제를 위한 암호를 넣어 주세요

대략 아래처럼 하시면 될듯,,,

var
  More: integer;

procedure ...BeforePrint(Sender: TCustomQuickRep; var PrintReport: Boolean);
begin
  More := 0;
end;

procedure ...NeedData(Sender: TObject; var MoreData: Boolean);
begin
  if More = 0 then
    ...Caption := '공급받는자'
  else
    ...Caption := '공  급  자';

  if More = 0 then
    ...Font.Color := clBlue
  else
    ...Font.Color := clRed;

  // ForceNewPage 가 False 이어야 한다.
  MoreData := More <= 1; // MoreData가 True면 같은내용을 연속으로 Print
  if More = 0 then
    ...
  else
    ...;
  Inc(More);
end;
 
2019-04-25 오전 10:40:55