Printing in Firemonkey

  

TPrinter* prn = Printer::Printer();

TCanvas* Canvas = prn->Canvas;
String text = "Long live the king";

TFillTextFlags fTextFlag = TFillTextFlags();
prn->BeginDoc();
TRectF rect{100, 100, 800, 800};
Canvas->FillText(rect, text, false, 1, fTextFlag, TTextAlign::Leading, TTextAlign::Leading);
prn->EndDoc();

ShowMessage("Done Printing!");

The Text coming out is very tiny (as if no scaling was done with respect to DPI… like it was printing to a Screen, not a printer)… I tried the above (similar) codes in VCL, and it comes out fine…

Comments are closed.