A nyomtatás elvégzéséhez a Printer osztályt használjuk fel.
procedure TForm1.Button1Click(Sender: TObject);
var
c: array[0..21] of WideChar;
i: integer;
begin
Printer.BeginDoc;
A nyomtatáshoz egy olyan fontot kell beállítanunk, mely unicode típusú. Ha operációs rendszerünket úgy telepítettük, hogy kértük a távolkeleti nyelvek támogatását is, akkor találunk unicode karakter készleteket rendszerünkben, ha nem így történt a telepítés, akkor ezt utólagosan is elvégezhetjük.
Printer.Canvas.Font.Name:='Arial Unicode MS';
Printer.Canvas.TextOut(100, 100, 'Software Online');
Printer.Canvas.Font.Size:=24;
Ezt követően összeállítunk egy tetszőleges sztringet egy WideChar tömbbe, mely képes unicode karakterek tárolására.
c[0]:='4';
c[1]:='5';
c[2]:='7';
c[3]:=' ';
A „MHz” egy karakteres jele az unicode karaktertáblába a 13202.
c[4]:=WideChar(13202);
c[5]:=' ';
for i:=6 to 20 do begin
c[i]:=WideChar(33202+i);
end;
Unicode szöveg kiírásához TextOutW függvényt kell használnunk, melynek első paraméterében a nyomtató Canvas azonosítóját kell megadnunk, majd az x, y pozíció jön, végül a kiírandó szöveg buffere és annak hossza.
TextOutW(Printer.Canvas.Handle, 100, 150, c, 21);
Printer.EndDoc;
end;