请 熟悉打印的朋友 看看 几个函数

Question

//取得字符的高度
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;
我想知道，这些函数 在打印时有何作用？应该什么时候用？

Answer 1

是不是这个问题太简单，有朋友帮个忙吗？