폼1, 폼2가 있습니다.
폼1(미리보기), 폼2(리포트)
폼1에서 버튼클릭시
 if Assigned(FrmSaleToday) then begin
  QPreview.QRPrinter := nil;
  FrmSaleToday.Free;
 end;
 Try
  FrmSaleTodayCash := TFrmSaleToday.Create(self);
  FrmSaleTodayCash.Preview;
 Except
  FrmSaleTodayCash.Free;
 End;
폼2 OnPreview이벤트에서
  폼1.QPreview.QRPrinter := QRPrinter;
됐는데 2,3번은 잘돼네요 근데 문제점은 메모리가 계속남아있구, 10번이상함 큭큭....
지금 27시간째 고민중입니다  여러분의 협조를