쩝쩝쩝...
제가 사용한 방법을 그대로 적어 봅니다... 성의 없다고 하지 마시길...
Try
     if Length(fFileName) > 0 then Begin
        Result := 5;
        fQuickR.ShowProgress := True;
        fQuickR.PrintifEmpty := True;
        fQuickR.Prepare;
        fQuickR.PreView;
        i := MessageDlg( 'EDMS 저장 또는 결재의뢰가 확실합니까 ?',
                         mtConfirmation, [mbYES, mbNO], 0);
        If i = idYES then Begin
           fQuickR.QrPrinter.Save(fFileName);
           Result := 1;
        End;
        fQuickR.QrPrinter.Free;
        fQuickR.QrPrinter := Nil;
     End Else Begin
         MessageDlg('저장할 File명이 생성되지 않았습니다', mtError, [mbOK], 0);
         Result := 0;
     End;
     Except
           Result := -1;
     End;
흠 ........
어느 부분인지 아시겠지요....? fQuickR 이 QuickReport입니다.

그럼이만..>쩝쩝쩝..