안녕하십니까.
늘 질문말 하는 초짜입니다.
다름이 아니구 얼마전에 질문을 올렸던 건데염.
알고 보니 컴파일시 프린서 설정을 하지 않아서 출력이 되지 않았던 거였더군요.
그 문제와 더불어 물었던건데 똑같은 폼을 출력하는데 딴곳에서는 다 정상(한장)이구 한곳에서만 비정상(두장)으로 출력이 됩니다.
전 도통 이해가 가지 않습니다.
혹시 코딩에서 출력물을 두장으로 출력하라는 명령을 걸어노은건지...
출력물을 호출하는 소스 올립니다.
좀 보시고 도움좀 부탁드립니다.


procedure TFSP_MEM_020I.SBT_PrintClick(Sender: TObject);
var li_SALE_CNT : Integer;
    li_PAY_CNT  : Integer;
    li_old_sale_seq : Integer;

    lr_Title   : Real;
    lr_Detail  : Real;
    lr_Summary : Real;
    lr_Group   : Real;
    lr_GroupFooter : Real;

begin
  inherited;

  if RGrd_PAY_LIST.RowCount = 0 then
     Exit;

  Application.CreateForm(TFSP_MEM_027R, FSP_MEM_027R);

  lr_Title       := 47.5;
  lr_Group       := 10.5;
  lr_Detail      := 5;
  lr_GroupFooter := 2;
  lr_Summary     := 26.7;

  li_SALE_CNT := 0;
  li_PAY_CNT  := 0;

  li_old_sale_seq := 0;

  with FSP_MEM_027R do
  begin
     QRLbl_GOLF_SEAT.Enabled := False;
     QRLbl_GOLF_TIME.Enabled := False;
     QRLbl_ENTR_NO.Enabled := False;

     Qry_PAY_LIST.Close;
     Qry_PAY_LIST.ParamByName('receipt_no').asString := wEdt_Receipt_No.Text;
     Qry_PAY_LIST.Open;

     while not Qry_PAY_LIST.Eof do
     begin
        if li_old_sale_seq <> Qry_PAY_LIST.FieldByName('매출순번').AsInteger then
           inc(li_SALE_CNT);

        inc(li_PAY_CNT);

        li_old_sale_seq := Qry_PAY_LIST.FieldByName('매출순번').AsInteger;

        Qry_PAY_LIST.Next;
     end;


     QuickRep1.Page.Length := lr_Title   +
                              lr_Summary +
                             (lr_Detail      * li_PAY_CNT)  +
                             (lr_Group       * li_SALE_CNT) +
                             (lr_GroupFooter * li_SALE_CNT) +
                              QuickRep1.Page.TopMargin +
                              QuickRep1.Page.BottomMargin;
  end;

  FSP_MEM_027R.Qry_PAY_LIST.First;

  FSP_MEM_027R.QuickRep1.PreviewModal;
  FSP_MEM_027R.Close;


end;