请 熟悉打印的朋友 看看 几个函数(50分)

//取得字符的高度
function CharHeight: Word;
var
Metrics: TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle, Metrics);
Result := Metrics.tmHeight;
end;

//取得字符的平均宽度
function AvgCharWidth: Word;
var
Metrics: TTextMetric;
begin
GetTextMetrics(Printer.Canvas.Handle, Metrics);
Result := Metrics.tmAveCharWidth;
end;

//纸张水平对垂直方向的纵横比例
function HVLogincRatio: Extended;
var
AP: TPoint;
begin
Ap := PaperLogicSize;
Result := Ap.y / Ap.X;
end;

//取得纸张的横向偏移量-单位：点
function GetOffSetX: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetX);
end;

//取得纸张的纵向偏移量-单位：点
function GetOffSetY: Integer;
begin
Result := GetDeviceCaps(Printer.Handle, PhysicalOffSetY);
end;

我想知道，这些函数 在打印时有何作用？应该什么时候用？

这些函数可以用来设置打印位置，结合Printer的TextOut()进行打印输出

下面这个过程中，计算
Px := Round(Round(X * HPointsPerInch * 10000/25.4) / 10000);
Py := Round(Round(Y * VPointsPerInch * 10000/25.4) / 10000);
完成后
为何还要进行下面的运算，而不是直接利用值进行打印？
为何py,px的运算还不一样？
为何要这样算？
谢谢。
Py := Py - GetOffSetY;
file://因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
Px := Px + 2 * AvgCharWidth;

procedure PrintText(X, Y: Extended;
Txt: string;
ConfigFileName: string;
FontSize: Integer=12);
var
　OrX, OrY: Extended;
　Px, Py: Integer;
　AP: TPoint;
　Fn: TStrings;
　FileName: string;
　OffSetX, OffSetY: Integer;
begin
file://打开配置文件，读出横向和纵向偏移量
try
　Fn := TStringList.Create;
　FileName := ExtractFilePath(Application.ExeName) + ConfigFileName;
　if FileExists(FileName) then
　begin
　　Fn.LoadFromFile(FileName);
　　file://横向偏移量
　　OffSetX := StrToInt(Fn.Values['X']);
　　file://纵向偏移量
　　OffSetY := StrToInt(Fn.Values['Y']);
　end
else
begin
　file://如果没有配置文件，则生成
　Fn.Values['X'] := '0';
　Fn.Values['Y'] := '0';
　Fn.SaveToFile(FileName);
end;
finally
　Fn.Free;
end;
X := X + OffSetX;
Y := Y + OffSetY;
Px := Round(Round(X * HPointsPerInch * 10000/25.4) / 10000);
Py := Round(Round(Y * VPointsPerInch * 10000/25.4) / 10000);
Py := Py - GetOffSetY;
file://因为是绝对坐标, 因此, 不用换算成相对于Y轴坐标
Px := Px + 2 * AvgCharWidth;
Printer.Canvas.Font.Name := '宋体';
Printer.Canvas.Font.Size := FontSize;
file://Printer.Canvas.Font.Color := clGreen;
Printer.Canvas.TextOut(Px, Py, Txt);
end;

文章原文
http://www.delphibbs.com/delphibbs/dispq.asp?lid=2315332

接受答案了.