با سلام
دوست عزیز یونیتی با نام printers وجود دارد که در آن یک متغییر سراسری تعریف شده است با نام printer این ابجکت یک پراپرتی با عنوان canvas دارد که همانند canvas فرم میتوانید با آن کار کنید ، برای نمونه این مثال را توجه کنید :
uses
printers;
procedure TForm1.Button1Click(Sender: TObject);
var
S : string;
X,Y : Integer;
begin
Printer.BeginDoc;
SetMapMode(printer.Canvas.Handle,MM_TEXT);
S:='Hellow word';
X:=100;
Y:=200;
Printer.Canvas.Font.Size:=40;
Printer.Canvas.Brush.Color:=clRed;
TextOut(Printer.Canvas.Handle,X,Y,PChar(S& #41;,Length(S));
Printer.EndDoc;
end;
همه آنچه که شما برای کارتان نیاز دارید من در این کد کوچک نوشته ام ، امیدوارم که به کارتان بیاید .
موفق باشید