Raveprojekt zweimal hintereinander ausführen

[marcus]

Hallo zusammen,
folgendes Problem. Eine Rechnung wird ausgedruckt und davor (oder danach) soll diese Rechnung auch noch als PDF abgespeichert werden. Leider werden die PDF's total vermanscht, wenn ich das so ausführe, wie in dem Code. Beim auskommentieren von dem zweiten Execute werden die PDF's normal erzeugt, d.h. sie haben eine Größe von ca. 700 kB. Wenn ich gleich danach drucke werden die PDF's ca. 4MB groß und können nicht geöffnet werden.
Folgendes habe ich schon versucht:
Zuerst dachte ich, das ist ein zeitliches Problem und habe einen sleep nach dem ersten Execute eingefügt. Hat leider nicht funktionert. Auch ein close und open des Rave Projekts hat zu nichts geführt.
Muss ich hier mit zwei Rave Projekten oder Rave System komponenten arbeiten?

Delphi-Quellcode:

RvSystem.DefaultDest := rdFile;
RvSystem.DoNativeOutput := FALSE;
RvSystem.RenderObject := RvRenderPDF;
Rvsystem.OutputFileName := accountDir + rechNr + '.pdf';
RvProRech.Execute;   

RvSystem.DefaultDest := rdPrinter;
RvSystem.DoNativeOutput := TRUE;
RvProRech.Execute;

Gruß
Marcus