Ориентация принтера в Runtime
FastReport 2.52
procedure TFmMain.SBPrintClick(Sender: TObject);
begin
frR.Pages[0].pgOr := Printer.Orientation;
frR.ShowReport;
end;
Результат: на экране страница ориентацию не поменяла, хотя на бумаге - правильно.
Однако, клиент нервничает. При повторном нажатии кнопки и на экране становится правильно.
Хочется с первого раза увидеть на экране правильную ориентацию.
procedure TFmMain.SBPrintClick(Sender: TObject);
begin
frR.Pages[0].pgOr := Printer.Orientation;
frR.ShowReport;
end;
Результат: на экране страница ориентацию не поменяла, хотя на бумаге - правильно.
Однако, клиент нервничает. При повторном нажатии кнопки и на экране становится правильно.
Хочется с первого раза увидеть на экране правильную ориентацию.