Функция Fittopage()

JetuS

Здравствуйте.

Ситуация: я загружаю в отчет текстовый файл и он печатается на двух страницах, причем на второй странице текста совсем мало.
Вопрос: как можно реализовать функцию FitToPage(), которая бы умещала все на одну страницу?

gpi

Текстовый файл печатается в одном Мемо?

JetuS

gpi написал: »

Текстовый файл печатается в одном Мемо?

Да.
Но я готов подстроиться под ситуацию, главное реализовать этот функционал.

gpi

Вот код подбора размера шрифта под заданную ширину

procedure Memo1OnAfterData(Sender: TfrxComponent);
begin
     Memo1.Font.Size:=10;       
     if Memo1.CalcWidth>Memo1.Width-Memo1.GapX*2 then
       Memo1.Font.Size:=Trunc(Memo1.Font.Size*((Memo1.Width-Memo1.GapX*2)/Memo1.CalcWidth));  
end;

Можете переделать его для заданной высоты

JetuS

gpi написал: »

Вот код подбора размера шрифта под заданную ширину
Можете переделать его для заданной высоты

Большое спасибо.
А существует ли возможность реализовать это не изменением размера шрифта, а масштабированием результата вывода на страницу?

gpi

Попробуйте формировать отчёт на листе с бесконечными длиной и шириной, а затем печатать в режиме pmScale

JetuS

gpi написал: »

Попробуйте формировать отчёт на листе с бесконечными длиной и шириной, а затем печатать в режиме pmScale

Большое спасибо, все работает!