Распечатать Canvas

uses
 
  Printers; 

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

Другое по теме:

• Escape код PASSTHROUGH
• Вместо печати графики использовать резидентный шрифт принтера
• Вывести все способы подачи бумаги для печати