Hat sich glaube ich erledigt.
Ich mache das nun so:
Code:
procedure TfrmMain.btnPrintRecipeClick(Sender: TObject);
var
PictureView: TfrxPictureView;
RichView: TfrxRichView;
MemoView: TfrxMemoView;
begin
if dmMain.tblRezepte.RecordCount > 0 then begin
try
dmMain.qryRezepte.Sql.Clear;
dmMain.qryRezepte.SQL.Add('SELECT * FROM items WHERE ID=' + dmMain.tblRezepteID.AsString);
dmMain.qryRezepte.Open;
dmMain.frxReport.PrepareReport(True);
dmMain.frxReport.ShowPreparedReport;
finally
dmMain.qryRezepte.Close;
end;
end;
end;