TQuickRep Report laden

[MrSpock]

Ich hab jetzt selbst eine Lösung gefunden. Leider kann man das Problem nur durch Änderung im Quickreport Quellcode lösen. Der Aufruf von QRPrinter.Print gibt nämlich immer den gesamten Report aus.

So sieht im Prinzip jetzt meine Lösung aus:

Code:

   RepForm.QuickRep1.Prepare;
   RepForm.QuickRep1.QRPrinter.Load('C:\AllPackages130302.QRP');
   RepForm.QuickRep1.QRPrinter.FirstPage := SpinEdit1.Value -1;
   RepForm.QuickRep1.QRPrinter.LastPage := SpinEdit2.Value -1;
   RepForm.QuickRep1.QRPrinter.Print;
   ShowMessage('Seite(n) '+IntToStr(SpinEdit1.Value)+' bis '+
               IntToStr(SpinEdit2.Value)+' gedruckt.');
   RepForm.QuickRep1.QRPrinter.Free;

wobei ich Print wie folgt geändert habe:

Code:

  {alt: for I := 1 to PageCount do}
  {neu: }
        for I := FirstPage to LastPage do
        begin
          Application.ProcessMessages;
          PageNumber := I; ...

Ist zwar im Moment nur eine quick and dirty Lösung, aber auf jeden Fall, kann ich jetzt drucken...