X11 
Проблему с выводом на печать решил?
Я слегка поковырял и предлагаю шрифтом играться не в Grid1CustomDrawCell, а повесить на
GetContentStyle вьюка и создать необходимые стили. В этом случае всё ОК.
  
procedure TfmScanner.Grid1DBTableView1StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
Var
val : boolean;
begin
val := VarAsType(ARecord.Values[Grid1CP.Index], varBoolean);
   
if val then
AStyle := cxStyle13;
     
end;
 
		
		Проблему с выводом на печать решил?
Я слегка поковырял и предлагаю шрифтом играться не в Grid1CustomDrawCell, а повесить на
GetContentStyle вьюка и создать необходимые стили. В этом случае всё ОК.
procedure TfmScanner.Grid1DBTableView1StylesGetContentStyle(
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
Var
val : boolean;
begin
val := VarAsType(ARecord.Values[Grid1CP.Index], varBoolean);
if val then
AStyle := cxStyle13;
end;

