Imprimir en columnas

[elcigarra]

Estimados, tengo un stringgrid de datos y quería mandarlos a una impresora. Cuando empecé parecía un tema sencillo: Pasaba todo a un stringlist en textos separados por tabulador chr(9) y luego usando la ayuda de delphi:

begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;
end;

El problema es que por alguna razón no puedo separar en columnas. Es como si la impresora no reconociera los tabuladores

¿Tienen idea como solucionar esto (o tal vez alguna rutina para imprimir un string grid)?