var
DeviceMode: THandle;
Device, Driver, Port: array[0..1023] of char;
begin
Printer.GetPrinter(Device, Driver, Port, DeviceMode);;
with Printer do
begin
SetMapMode(Printer.Handle,MM_LOMETRIC);
BeginDoc;
Canvas.Font.Size:= 10;
Canvas.TextOut(100,200,'hola mundo');
EndDoc;
end;
Printer.SetPrinter(Device, Driver, Port, DeviceMode);;
end;