procedure TMainForm.BizFormShow(Sender: TObject);
var
lGrid:TDataGrid;
begin
lGrid:=DCSTATREPORTINFO.TStatReportDataGrid(DocViewDCSTATREPORTINFO_STATREPORTDATAGRID.Doc).DataGrid;
lGrid.Exporter.PageInfo.Orientation:= TPrinterOrientation.poLandscape;
end;