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!");
出来的文本非常小(好像没有对 DPI 进行缩放......就像它正在打印到屏幕,而不是打印机)......我在 VCL 中尝试了上述(类似)代码,它来了出来很好...