[Kis]

Здравствуйте! такой вопрос...В DbgridEh отображается база аксесс. В одном из столбцов процедура замены символов

Код:

procedure TForm1.DBGridEh1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumnEh;
  State: TGridDrawState);
begin
 if column.FieldName = 'Unit' then
   with dbgrideh1.Canvas do
   begin
     fillrect(rect);
     if adoquery1.FieldByName('Unit').AsString = 'считыватель 2-2' then
     begin
     textout(rect.Left + 39 - dbgrideh1.Canvas.TextWidth('заезд'),
     rect.Top + 2, 'заезд');
     end
     else
     textout(rect.Left + 39 - dbgrideh1.Canvas.TextWidth('выезд'),
     rect.Top + 2, 'выезд');
     end;
end; 

На экране все норм, но когда вывожу на печать, то печатается "считыватель"...как можно сделать, чтобы печаталось все таки "заезд"...?