프린트 다이얼로그가 뜨고 선택영역체크를 한 후
1 ~ 1 페이지를 출력하면 제일 마지막 레코드가 출력되는 것 같습니다.
만약 5 ~ 5 페이지를 출력하면 4페이지가 출력되고 이런 식으로
출력이 되네요... 해결 방법이 없을까요.. 고수님들의 도움을 청합니다.

아래는 출력 부분 해당 소스 입니다.

      PrintDialog1.MinPage:= 1;
      PrintDialog1.MaxPage:= Printform.QuickRep1.PageNumber;
      PrintDialog1.ToPage:= Printform.QuickRep1.PageNumber;
      if PrintDialog1.Execute then begin
          with Printform.QuickRep1 do begin
               PrinterSettings.Copies := PrintDialog1.Copies;
               if PrintDialog1.PrintRange = prAllPages then begin
                  PrinterSettings.FirstPage := PrintDialog1.MinPage;
                  PrinterSettings.LastPage  := PrintDialog1.MaxPage;
               end else
               if PrintDialog1.PrintRange = prSelection then begin
                  PrinterSettings.FirstPage := QRPreview1.PageNumber;
                  PrinterSettings.LastPage  := QRPreview1.PageNumber;
               end
               else begin
                  PrinterSettings.FirstPage := PrintDialog1.FromPage;
                  PrinterSettings.LastPage  := PrintDialog1.ToPage;
               end;
          end;
          Application.ProcessMessages;
          Printform.QuickRep1.PrinterSettings.PrinterIndex  := Printer.PrinterIndex ;
          Printform.QuickRep1.print;
      end;