Как можно повторить печать MasterData требуемое количество раз? Количество задано в одном из полей записи
Question: Как можно повторить печать MasterData требуемое количество раз? Количество задано в одном из полей записи
Answer:
Добавьте в отчёт бэнд DetailData
. Установите DetailData.RowCount=1
(Это обязательно!) В событии MasterData1OnBeforePrint
устанавливайте DetailData.RowCount:=
На бэнде DetailData
расположите мемо с полями из датасета, привязанного к MasterData. Высоту MasterData установите равной 0: MasterData.Height=0
Каким образом можно получить доступ к RTF тексту? (что то типа string s:=Rich.RichText.Lines.RTF
)
В приведенном коде при клике на TfrxRichView его содержимое копируется в Memo1 на диалоговой форме:
procedure Rich1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
var st: TMemorystream;
begin
st:=TMemoryStream.Create;
Rich1.RichEdit.StreamFormat := 0;
Rich1.RichEdit.Lines.SaveToStream(st);
st.Position := 0;
Memo1.Lines.LoadFromStream(st);
st.Free;
DialogPage1.ShowModal;
end;