Delphi - Imprimir StringGrid

Como puedo Imprimir un StringGrid????ya me tiene cansado , lo imprimo como una matris usando canvas, perono hay forma de que salga prolijo, los nombre se superpponen , por ejemplo si el nombre es muy largo y sig campo que sigue queda encimay no se entienede nada.
hay alguna forma de imprimir un StringGrid????

Saludos!

procedure TForm11.Button2Click(Sender: TObject);
begin
if PrintDialog1.Execute then
begin
printer.Title:='hola bueno';
with Printer do
begin
BeginDoc;
sg11.PaintTo(Handle,1100,300);
EndDoc;
end;
end;
end;
Imprime perfectamente pero me imprime demasiado pequeño.
Espero que a ti no te pase lo mismo, y si encuentras la solucion mandamela.