1.Umieść na formularzu komponenty RvProject1, RvSystem1, RvRenderPDF1, przycisk (Button).
2. Zmień właściwość Caption przycisku na:
Zapisz raport jako PDF
3. Ustaw właściwość Engine komponentu RvProject1 na RvSystem1.
4. Ustaw właściwość ProjectFile komponentu RvProject1 na plik raportu Raport.rav. (trzeba sobie wcześniej zrobic raport np w rave vusual designerze)
5. Oprogramuj zdarzenie onClick dla przycisku zapisującego raport do pliku *.pdf.
procedure TForm1.Button1Click(Sender: TObject);
begin
//przeznaczeniem raportu ma być plik
RvSystem1.DefaultDest := rdFile;
RvSystem1.DoNativeOutput := false;
//obiektem renderującym będzie komponent RvRenderPDF1
RvSystem1.RenderObject := RvRenderPDF1;
//plik zostanie zapisany pod nazwą plikpdf.pdf w katalogu projektu
RvSystem1.OutputFileName := 'plikpdf.pdf';
RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
//wywołanie metody Execute zapisze raport do pliku plikpdf.pdf
RvProject1.Execute;
end;
Niech cię bozia w tłuste i wyszczekane dzieci wynagrodzi czegoś takiego szukałem dokładniej zaczołem szukac 3 minuty temu i patrz juz mam jak zadziała to pasz pifo ale się nie dopominaj :)
OdpowiedzUsuń