qreport를 이용하여 세금계산서, 출하지시서 출력 프로그램을

작성하였습니다 (도트프린터)

그런데 처음에는 잘되던 프로그램이 계속해서 10~20장정도 출력하면

프로그램이 죽어버립니다

도사님 제발 불쌍히 여기시고 도와주세요



private

aReport : TQuickRep;

procedure PickReport;

procedure PickReport2;



procedure TFrmChulhaInput.PickReport;

begin

aReport := FrmTaxReport.QuickRep1;

end;



procedure TFrmChulhaInput.PickReport2;

begin

aReport := FrmTaxReport2.QuickRep1;

end;



//DB update후 프린트 루틴

FrmTaxReport := TFrmTaxReport.Create(self);

PickReport;



Printer.PrinterIndex := 1; //프린터 자동지정



aReport.Print; //세금계산서

taxreport.FrmTaxReport.close;



FrmTaxReport2 := TFrmTaxReport2.Create(self);

PickReport2;



Printer.PrinterIndex := 0; //프린터 자동지정



aReport.Print; //출하지시서

taxreport2.FrmTaxReport2.close;