Hallo Kurt56,
vielleicht hilft dir
das weiter.
Ich habe es bei mir mal so erledigt:
Delphi-Quellcode:
procedure TfrmMain.btnSavePDFClick(Sender: TObject);
var
PageBitmap: TRavePage;
imgRPT: TRaveBitmap;
begin
RvProject1.Open;
PageBitmap := RvProject1.ProjMan.FindRaveComponent('report1.Page1',nil) as TRavePage;
imgRPT := RvProject1.ProjMan.FindRaveComponent('Bitmap1', PageBitmap) as TRaveBitmap;
imgRPT.Image.Assign(imgMain.Picture.Graphic);
RvSystem1.DefaultDest := rdFile;
RvSystem1.DoNativeOutput := false;
RvSystem1.RenderObject := RvRenderPDF1;
RvSystem1.OutputFileName := strPDFPath + '\' + ChangeFileExt(ExtractFileName(flbMain.FileName), '.pdf');
RvSystem1.SystemSetups := RvSystem1.SystemSetups - [ssAllowSetup];
RvProject1.ExecuteReport('report1');
RvProject1.Close;
end;
Nur das ich hier von einem TImage auf meiner Form ein PDF-File erzeuge.
gruß rawi