Неровные края при печати...

[GOS]

Формирую рисунок штрихкода вручную, т.к. необходимо учитывать конкретные требования заказчика, передаю рисунок в FreeReport, печатаю(печатный размер 45мм*13мм):
a) убираю свойство "растянуть"
в результате картинка меняте свой размер в зависимости от
установленного разрешения принтера
b) ставлю растягиваемый
в результате получаю как бы рваные края у чёрных обектов...

Как сделать картинку чёткой?(пока помогает изменение установок принтера, но хотелось бы саму картинку привести в порядок)

Ниже приведу код формирования
--------------------------------------------------------
Image1.Canvas.Brush.Color := ClWhite;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
Image1.Canvas.Brush.Color:=clWhite;
//if FontDialog1.Execute then Image1.Canvas.Font:=FontDialog1.Font;
//Вывод надписи "ПОЧТА РОССИИ"
Image1.Canvas.Font.Color:=clBlack;
Image1.Canvas.Font.Name:='Arial';
Image1.Canvas.Font.Size:=28;
Image1.Canvas.TextOut(1,1,'ПОЧТА РОССИИ');

Image1.Canvas.Font.Name:='IntP36DlTt';
Image1.Canvas.Font.Size:=120;
Image1.Canvas.TextOut(2,39,CodeToCBar('14390021115825'));
Caption:=Image1.Canvas.Font.Name;

Image1.Canvas.Font.Name:='Arial';
Image1.Canvas.Font.Size:=28;
Image1.Canvas.TextOut(1,200,'144444');
---------------------------------------------------

Передача картинки в FR через OnEnterRect

С уважением, Олег.

[Naeel Maqsudov]

1) Вообще-то TBarCode в FR весьма развит, и в купе с надписями, расставленными рядом, как мне кажется, вполне можно было бы получить желаемый результат.

2) Может попробовать рисовать не а канве Image1, а в канве какого-нибудь контрола, лежащего в отчете, причем родного FR-контрола? (Я правильно понял, что картинка потом копируется в отчет?)