Print a Canvas

Problem/Question/Abstract:

How to print a canvas:

Answer:
This is simple way.I found in Tory delphi pages.Original belongs to Simon Grossenbacher
Homepage: http://www.swissdelphicenter.ch

this is code

uses
Printers;

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