Rave: RvRenderPrinter.Copies funktioniert nicht

[Safti]

Hallo,

ich hab eine NDRStream erstellt und möchte diesen nun an den Drucker schicken. Der Anwender kann die Anzahl der Kopien in einem edit eingeben, die ich dann über folgenden Code auswerten wollte:

Delphi-Quellcode:

procedure Drucken;
var
   copies: integer;
   prnOk: boolean;
begin
   inherited;
   prnOk:=false;
   copies:=StrToInt(Trim(edtAnzahl.Text));
   if RpDev.SelectPrinter('MyPrinter',false) then prnOk:=true
   else if RPDev.PrinterSetupDialog then prnOk:=true;
   if prnOk then begin
      RvRenderPrinter.Copies:=copies;
      RvRenderPrinter.Render(MyNDRStream);
   end;
end;

RvRenderPrinter.MaxCopies ist 999
RvRenderPrinter.Copies entspricht auch meinem zugewiesenen Wert (>0), aber es gibt immer nur einen Ausdruck.

Funktionieren tut das ganze nur, wenn ich es in einer Scheife mehrmals ausführe.

Delphi-Quellcode:

procedure Drucken;
...
   if prnOk then begin
      for i:=1 to copies do
         RvRenderPrinter.Render(MyNDRStream);
   end;
...
end;

Nur dann sind es eben auch mehrere Druckjobs und zwischen dem 1. und dem 2. könnte sich ein anderer User dazwischen drängeln und das würde ich gerne vermeiden.

Wieso funktioniert der obige Quellcode nicht? Fehlt noch was? Hab auch schon RpDev.Copies den Wert zugewiesen, mit dem selben Ergebnis.

Danke und Gruß
Safti

[Safti]

Hat denn noch Niemand auf diese Weise versucht, mehrere Kopien eines Rave-Reports zu drucken?

Ich habe hier einen Beitrag gefunden, der genau diese Vorgehensweise beschreibt, die eben bei mir nicht funktioniert. Ich frag mich, wo mein Fehler liegt.

[cs.rumpelstilzchen]

Hallo Safti,
bin gerade über deine Frage gestolpert, weil ich vor dem gleichen Problem stand. :freak:

Solltest du noch keine Lösung gefunden haben, hier meine Lösung:

Delphi-Quellcode:

RpDev.Copies := DeinAnzahlKopien;
RvSystem.SystemPrinter.Copies := RpDev.Copies;

RvSystem ist das Rave-TRvSystem-Objekt!

Bei mir funzt das prima...


Solltest du das schon selbst herausgefunden haben oder eine andere Lösung, so wäre es im Rahmen dieses Forums nett, wenn du deine Fragen auch selbst beantworten würdest. So hifst du anderen Suchenden (wie z.B. mir vor ca. 2 Stunden!). :chat:

So long,
Jürgen