if frxReport1.PrepareReport () then
begin
frxReport1.PreviewPages.Page[0].Duplex :=dmVertical;
{нумерация страниц начинается с нуля}
frxReport1.ShowPreparedReport;
end;
var
Page:TfrxReportPage;
begin
Page:=frxReport1.FindObject('Page1') as TfrxReportPage;
Page.Duplex := dmHorizontal;
if frxReport1.PrepareReport () then
frxReport1.ShowPreparedReport;
end;
Комментарии
Но интересовал вопрос из кода самой программы.
Сенкс