如何用printers单元制作精确的打印程序，要代码。(100分)

我想用printers单元制作一个精确的打印程序，请各位大哥帮帮忙啊。

给你一个大概的例子。
var
lix,liy,kk :Integer;
begin
if printer.Printing then Exit;
kk:=0;
lix:=FiXbegin;
liy:=FiYbegin;

printer.BeginDoc;
with printer do
begin
Fdataset.First;
while not Fdataset.Eof do
begin
end;
Canvas.Font.Size:=12;
Canvas.TextOut(450,210,FsTotal);
Canvas.TextOut(650,210,FsPay);
Canvas.TextOut(850,210,FsPayBack);

Canvas.Font.Size:=10;
Canvas.TextOut(100,280,FsShopID);
Canvas.TextOut(350,280,FsTelephone);
Canvas.TextOut(700,280,FsDate);
end;

printer.EndDoc;
end;

printers是通过坐标来定位打印，本来就比较精确

你用TFastReport不仅可以精确打印，还可以在内部编程解决问题。
最适合你用拉

Tfastreport可以那么精确吗