Hallo Reportexperten,

Ich arbeite hier zur Zeit mit Delphi 3 und habe einen umfangreichen Report erstellt und anschließend gespeichert.

Ich habe ein Programm geschrieben, was einen "Dummy Report" anzeigt, der nur die Aufforderung anzeigt, den Report aus dem entsprechenden Verzeichnis zu laden. Wenn der Benutzer den Report geladen hat, kann er ihn anschauen, aber nur am Stück (220 Seiten) drucken, weil der PrinterSetup nicht funktioniert.

1. Wie kann ich den Report automatisch laden?
Ich habe es mit QRPrinter.Load versucht, aber es wird trotzdem der DummyReport angezeigt.

2. Wie kann ich nur ausgewählte Seiten drucken?
Ich habe mit QRPrinter.Load den Report geladen und ohne ihn anzuzeigen, gleich QRFirstPage und QRLastPage festgelegt und gedruckt, aber diese Einstellungen werden ignoriert.

3. Selbst, wenn der Report nur manuell geladen werden kann, kann ich wenigstens den PrinterSetup aktivieren?
Der entsprechende Schalter funktioniert nur nach Neuerstellung des Reports, aber das will ich ja nicht.

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:

markieren

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:

markieren

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...