...print a canvas?

uses
  Printers;

procedure PrintText(Text: string);
begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextOut(5, 50, Text);
    EndDoc;
  end;
end;