글세요 원하는 답이 델넌지 모르겠네요

그런데 저희회사 Print (크리스탈 레포트로 만듬)아주 잘됨

압측을 해서 파일을 첨부를 하려고 했는데

파일 첨부하는데가 없어서 그냥 올립니다.

파일 길다고 무엇라고 하지 마세요

그럼 수고 하세요

감사 합니다.



procedure TFCusOrder.BitBtn5Click(Sender: TObject);// Form에서 Print 버튼 클릭
begin
Prt_Area(2);
end;

procedure TFCusOrder.Prt_Area(const JobTag:integer);
begin
TTemp_1.Active:=True;
TTemp_1.Active:=False;
TTemp_1.DatabaseName:=TempPath;
TTemp_1.Tablename:='Tmp_01.db';
TTemp_1.Exclusive:=True;
TTemp_1.EmptyTable;
TTemp_1.Active:=True;

List_Area(JobTag);

with fmMain.Crpe1 do
  begin
  Clear;
  if (JobTag = 1) then
     ReportName:=RptPath + 'Rpt24.Rpt'
     else
     ReportName:=RptPath + 'Rpt11.Rpt';

  Formulas.Clear;
  Formulas.Retrieve;
  if (JobTag <> 1) then
     begin
     ReportName:=RptPath + 'Rpt11.Rpt';
     Formulas.Name := 'H_1';
       if Radiobutton7.checked=true then
          Formulas.Formula.Text := '"Bal Qty"'
          else
          Formulas.Formula.Text := '"Worker"';
     end;
   Formulas.Name := 'T_t';
   Formulas.Formula.Text := '"Proforma Invoice"';
   WindowState:=wsMaximized;
   Output :=toWindow;

   Execute;
  end;
end;

procedure TFCusOrder.List_Area(const AcptTag:integer);
var
Seq:integer;
begin
  with Query1 do
  begin
  Close;
  Sql.Clear;
  Sql.Add(' select a.*, b.GRAP_PATH, b.matr_name from Corder a, matr_code b');
  Sql.Add(' where a.matr_code = b.matr_code and a.matr_size=b.matr_size');
  Sql.Add(' and a.Bill_no = :p1');
  ParamByName('p1').asstring:=FlatEdit2.text;
  open;
  Seq:=0;
  while not eof do
    begin
    Seq:=Seq + 1;
    TTemp_1.Append;
    TTemp_1.FieldByName('Key_1').asstring         :=FieldByName('Bill_no').asstring;
    TTemp_1.FieldByName('Key_2').asstring         :=FieldByName('Comp_code').asstring;
    TTemp_1.FieldByName('Key_3').asstring         :=FieldByName('Matr_code').asstring;
    TTemp_1.FieldByName('Key_4').asstring         :=formatFloat('000001',Seq);
    TTemp_1.FieldByName('Data_1').asstring        :=CompFind(FieldByName('Comp_Code').asstring);
    TTemp_1.FieldByName('Data_2').asstring        :=FieldByName('Matr_Name').asstring;
    TTemp_1.FieldByName('Data_3').asstring        :=FieldByName('Matr_size').asstring;
    TTemp_1.FieldByName('Data_4').asstring        :=FieldByName('Matr_Color').asstring;
    TTemp_1.FieldByName('Data_5').asstring        :=FieldByName('Notes').asstring;
    if Radiobutton8.checked=true then
       begin
       if AcptTag=1 then
          TTemp_1.FieldByName('Qty_1').asinteger        :=FieldByName('Matr_Qty').asinteger
          else
          TTemp_1.FieldByName('Qty_1').asinteger        :=0;

       TTemp_1.FieldByName('Qty_2').asinteger        :=0;
       TTemp_1.FieldByName('Qty_3').asinteger        :=FieldByName('Matr_Qty').asinteger
                                                      -FieldByName('Out_Qty').asinteger;
       end else
       begin
       TTemp_1.FieldByName('Qty_1').asinteger        :=FieldByName('Matr_Qty').asinteger;
       TTemp_1.FieldByName('Qty_2').asinteger        :=FieldByName('Out_Qty').asinteger;
       TTemp_1.FieldByName('Qty_3').asinteger        :=FieldByName('Matr_Qty').asinteger
                                                      -FieldByName('Out_Qty').asinteger;
       end;
    TTemp_1.FieldByName('Date_1').asstring        :=FieldByName('Order_date').asstring;
    TTemp_1.FieldByName('Date_2').asstring        :=DateDisplay(FieldByName('Order_date').asstring);
    if AcptTag=1 then
       begin
       TTemp_1.FieldByName('Amt_1').ascurrency    :=FieldByName('Matr_dan').ascurrency;
       TTemp_1.FieldByName('Amt_2').ascurrency    :=FieldByName('Matr_Amt').ascurrency;
       end;

    TTemp_1.Post;
    Next;
    end;
end;

Query1.Close;
TTemp_1.Close;
end;

답변 고맙습니다.
예제로 주신거는 쿼리 결과를 임시 테이블에 저장해서
사용하신것 같네요..
그러면 이미 레포트에 임시 테이블들의 필드들을 출력할 수
있게 만들어 놓은거잖아요... 맞죠?? ^^

그렇게 말구여..
그냥 일반 레이블 처럼요..
델파이에서는 DBText 말구여.. 그냥 Text 를 쓰는 것처럼요..
그런 방법이 없냐는 거죠...
크리스탈 레포트 내에서 직접 하는방법 말구여..
델파이 소스내에서 처리할 수 있냐는 거죠...

다시한번 부탁드리겠습니다.
그리고 답변해 주신건 정말 고맙습니다.
도움이 많이 됐어요... ^^