Hola muchachos, en realidad imprimir directo sobre el Canvas del TPrinter a veces es bastante laborioso la propuesta de roman puede solventar este caso, sin embargo quería aclarar que las dos primeras declaraciones presentan dificultades debido a que:
Código:
Canvas.Font.Pitch = 'Helvetica';
no puede correr ya que al Pich se asocia el TFontPitch y no un string que es este caso es el nombre de un tipo de letra.
Y
Código:
Canvas.Font.Width = -11;
le sucede otro tanto ya que para el TFont no existe la propiedad Width.
Al menos ha sido así hasta Delphi 6, no obstante considero una buena propuesta de solución al caso.
Saludos