StringGrid drucken: viel zu klein (größer möglich ?)

[SY77]

Hallo !

Ich versuche ein TStringGrid zu drucken, das wird auch gemacht aber :
die Tabellen sind so klein (nur ca. 30 % von originale Grösse)

void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Printer()->BeginDoc();
  StringGrid1->PaintTo(Printer()->Canvas, 0, 0);
  Printer()->EndDoc();
}

Was muß ich noch machen damit die Tabellen in originale Größe ausgedruckt werden ?

Vielen Dank !