我用的是 Delphi 11火猴我尝试只使用TPrinter.Canvas方法进行一些打印（文本、形状、位图）。一切正常。
但是还有一个叫做TTextLayout的东西，它对格式化文本非常有用。然而，当我尝试使用这个类打印时，我看不到任何文本。另一方面，在常规画布上绘制，如使用TTextLayout的TPaintBox.Canvas或TBitmap.Canvas，效果很好。
下面是我的代码（TButton（×3），TPaintBox，TPrintDialog，TSaveDialog）：

uses
  FMX.TextLayout;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PaintBox1.Repaint;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  DoPrint;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  DrawToFile;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject; Canvas: TCanvas);
begin
  DrawSomething(Canvas);
end;

procedure TForm1.DoPrint;
begin
  if PrintDialog1.Execute then begin
    Printer.ActivePrinter.SelectDPI(1200, 1200);
    Printer.Orientation := TPrinterOrientation.poLandscape;
    Printer.BeginDoc;
    try
      if Printer.Canvas.BeginScene() then try
        DrawSomething(Printer.Canvas);
      finally
        Printer.Canvas.EndScene;
      end;
    finally
      Printer.EndDoc;
    end;
  end;
end;

procedure TForm1.DrawToFile;
var
  Bmp: TBitmap;
begin
  if SaveDialog1.Execute then begin
    Bmp := TBitmap.Create(300, 300);
    try
      Bmp.Clear(TAlphaColors.White);
      if Bmp.Canvas.BeginScene() then try
        DrawSomething(Bmp.Canvas);
      finally
        Bmp.Canvas.EndScene;
      end;
      Bmp.SaveToFile(SaveDialog1.FileName);
    finally
      Bmp.Free;
    end;
  end;
end;

procedure TForm1.DrawSomething(Canvas: TCanvas);
var
  tl: TTextLayout;
  BoldFont: TFont;
  StrokeBrush: TStrokeBrush;
begin
  tl := nil;
  BoldFont := nil;
  StrokeBrush := nil;
  try
    tl := TTextLayoutManager.DefaultTextLayout.Create();
    BoldFont := TFont.Create;
    StrokeBrush := TStrokeBrush.Create(TBrushKind.Solid, TAlphaColors.Blue);

    BoldFont.SetSettings('Arial', 96, TFontStyleExt.Create([TFontStyle.fsBold]));

    StrokeBrush.Thickness := 10.0;

    tl.BeginUpdate;
    try
      tl.TopLeft := TPointF.Create(0,0);
      tl.MaxSize := TPointF.Create(300, 300);
      tl.Text := 'Lorem'#$0A'ipsum';
      tl.WordWrap := True;
      tl.HorizontalAlign := TTextAlign.Leading;
      tl.VerticalAlign := TTextAlign.Leading;
      tl.Color := TAlphaColors.Black;
      tl.Font.SetSettings('Arial', 96, TFontStyleExt.Create([]));
      tl.Opacity := 1.0;
      tl.AddAttribute(TTextRange.Create(3, 5), TTextAttribute.Create(BoldFont, TAlphaColors.Black));
    finally
      tl.EndUpdate;
    end;
    tl.RenderLayout(Canvas);
    Canvas.DrawLine(TPointF.Create(10, 20), TPointF.Create(110, 120), 1.0, StrokeBrush);
  finally
    StrokeBrush.Free;
    BoldFont.Free;
    tl.Free;
  end;
end;

字符串
Button1重新绘制TPaintBox，Button2打印，Button3创建图像文件。以下是我的结果：
适用范围：Application screenshot
Microsoft Print to PDF（从实际打印机获得相同的结果）：PDF screenshot的
图像文件：Image file
正如您所看到的，TControl.Canvas和TBitmap.Canvas在呈现文本布局方面都没有问题。只有打印机的画布不显示文本。我做错什么了吗？