Print a canvas

uses
  Printers;

procedure PrintCanvas(TextToPrint: string);
begin
  with Printer do
  begin
    BeginDoc;
    Canvas.TextOut(5, 50, TexttoPrint);
    EndDoc;
  end;
end;