Rave - hat der User die Rechnung ausgedruckt?

[merlin17]

rolf,

einfachster weg:
mit TRvNDRWriter, TRvPreview und TRvPrinter arbeiten.
d.h. du druckst nur über TRvPrinter aus, die anzeige der Rechnung erfolgt
in einer ScrollBox mit der TRvPreview-kompo;

Code:

procedure TForm1.Button2Click(Sender: TObject);
var
  MeinNDRStream: TMemoryStream;
begin
  MeinNDRStream := TMemoryStream.Create;
  RvProject1.Open;
  RvProject1.Engine := RvNDRWriter1;
  with RvNDRWriter1 do
  begin
    StreamMode := smUser;
    Stream := MeinNDRStream;
  end;
  RvProject1.Execute;
  MeinNDRStream.Position := 0;

  with RvRenderPreview1 do
  begin
    ScrollBox := ScrollBox1;
    NDRStream := MeinNDRStream;
    Render;
  end;
  showmessage('Anzahl der Seiten: ' + IntToStr(RvRenderPreview1.Pages));
end;
 
RvREnderPrinter1.PrintRender...

thomas