Добрый день. Возникла такая проблема, нужно распечатать обычную таблицу, но при печати получается все очень мелкое, может кто подскажет как это исправить...
вот код:
TRectF SrcRect, DestRect;
int h = 40, w = 60, x0 = 50, y0 = 150, x, y;
TPrinter *Printer = Fmx::Printer::Printer();
Printer->ActivePrinter->SelectDPI(1200, 1200);
Printer->Canvas->Fill->Color = claBlack;
Printer->Canvas->Fill->Kind = TBrushKind(1);
Printer->Canvas->Stroke->Kind = TBrushKind::Solid;
Printer->Canvas->Stroke->Color = claBlack;
Printer->BeginDoc();
DestRect.SetHeight(h);
DestRect.SetWidth(w);
for (int i = 0; i < StringGrid1->RowCount; i++)
{
x = x0;
for (int j = 0; j < StringGrid1->ColumnCount; j++)
{
DestRect.SetLocation(x, y0);
Printer->Canvas->Font->Size = 14;
// Printer->Canvas->DrawRect(DestRect, 0, 0, AllCorners, 1);
// Printer->Canvas->Font->SetSettings(StringGrid1->TextSettings->Font->Family,StringGrid1->TextSettings->Font->Size,StringGrid1->TextSettings->Font->StyleExt);
Printer->Canvas->FillText(DestRect, StringGrid1->Cells[j][i], false,
100, TFillTextFlags(), TTextAlign::Center, TTextAlign::Center);
x += w;
}
y0 += h;
}
Printer->EndDoc();