Automatisch in PDF?

[Mauli]

Hallo zusammen,

ich habe ein Projekt, bei dem automatisch aus verschiedenen Daten ein PDF erstellt werden soll.
D.h. es soll nicht erst noch der Dialog mit den Output Options kommen sonder ich will direkt in eine PDF Datei mit vorgegebenen Pfad und Namen speichern.

Bis jetzt bin ich da noch nicht wirklich weit gekommen.
Im RVSystem kann ich zwar einstellen, dass er direkt auf Report Destination File geht aber viel mehr habe ich noch nicht erreicht.

Gibt es da eine Möglichkeit von den Komponenten? Oder einfach harten Code?

Ich wäre sehr dankbar über eure Antwort

Dank

[Knut Schoknecht]

Hallo Mauli,
anbei ein Codebeispiel zum automatischen erstellen einer PDF-Datei.
Habe es einfach aus eiunen meiner Programme copiert - sollte funktionieren .. ;-))

<PRE>
procedure TwfbForm3.SpeedButton33Click(Sender: TObject);
var
meinedatei:tfilestream;
datei:string;
begin

datei:='C:\base100\test.pdf';

rvproject1.Engine:=RvNDRWriter1;

rvproject1.SelectReport('Report2',true);
rvproject1.Open;

rvproject1.ExecuteReport('Report2');

application.ProcessMessages;
meinedatei:=tfilestream.Create(rvndrwriter1.FileNa me,fmopenread);
try
rvrenderpdf1.printrender(meinedatei,datei);
finally
meinedatei.free;
end;

end;
</PRE&gt

[Mauli]

Erst einmal Danke.

Das sieht logisch aus.

Aber ich mache da glaube ich noch etwas falsch.
Bei mir kommt die Fehlermeldung 'Die Datei kann nicht erstellt werden'
oder wenn sie schon da ist 'DieDatei kann nicht geöffnet werden'

Was habe ich übersehen

[Mauli]

Alarm zurück! Ich hatte nur in der rvndrwriter1 den FileName vergessen.

Vielen Dank Knut. Das funzt