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;
Комментарии
Но интересовал вопрос из кода самой программы.
Сенкс