Imprimir letras de distintos colores con libreria printer

[ecfisa]

Hola krewer.

No se a que partes de la salida de tu código deseas agregarle colores, pero supongamos que deseas poner en color rojo la siguiente línea:

Código Delphi [-]
Printer.Canvas.TextOut(20,Linha,'Horario');

Basta con que hagas:

Código Delphi [-]
   Printer.Canvas.Font.Color := clRed;
   Printer.Canvas.TextOut(20, Linha, 'Horario');

Otro ejemplo, si deseas la letra 'H' en color rojo y el resto ('orario') en color azul, harías:

Código Delphi [-]
  Printer.Canvas.Font.Color:= clRed;
  Printer.Canvas.TextOut(20, Linha, 'H');
  Printer.Canvas.Font.Color := clBlue;
  Printer.Canvas.TextOut(20 + Printer.Canvas.TextWidth('H'), Linha, 'orario');

Saludos