Функция Fittopage()

Комментарии

• gpi

  July 2011 отредактировано 04:57

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

  July 2011 отредактировано 04:57

  gpi написал: »

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

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

  July 2011 отредактировано 04:57

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

  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

  July 2011 отредактировано 04:57

  gpi написал: »

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

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

  July 2011 отредактировано 04:57

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

  July 2011 отредактировано 04:57

  gpi написал: »

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

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