Печатаю содержимое формы, шрифты расплываются.

[Protsv]

Дело в том что у меня довольно сложные запонения формы.
Я в Репортах не бум-бум.
А самое главное, прога полностью готова.
Вот тока теперь команды TextOut на TPrinter не могу сделать с прозрачностью

[Sibedir]

Я ж говорю:

Printer.BeginDoc;

Printer.Canvas.Brush.Style := bsClear;  

Printer.Canvas.Font:= Form2.Label2.Font;
Printer.Canvas.TextOut(iPosition(Form2.Label2.Left),jPosition(Form2.Label2.Top),Form2.Label2.Caption);
Printer.EndDoc;

[1234]

ребята зачем столько мучится когда можно просто взять и вывести на печать с помощью Эксела будет четко красиво и быстро ачто самое главное можно будет потом отредактировать

[Protsv]

Извените я не видел поста.
Увидел, попробовал.
Получилось.
Спасибо Sibedir, помог.
А я уже 3 часа лазию, ищу.
Теперь дело за малым.
Спасибо всем.

Кто знает как увеличить пропорционально
Картинку в TImage ????

[Stilet]

как увеличить пропорционально
Картинку в TImage

Поставь ему свойство Proportional.
Ну и при надобности увеличивай сам Timage

[Protsv]

Как же я жалею что сразу не занялся изучением Report'ов , лчше бы на новое время потратил.....

[Serge_Bliznykov]

ну так ещё не поздно! Рекомендую попробовать FastReport...
Перепишете свою программу под него (раз уж закончили) - заодно и репорт освоите! ;-)