Imprimer un canvas

uses printers;

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