精确打印问题，在线~~~~print.canvas.textout(x,y ,edit.text);是这样的吗？ 在线等~~~~~~~

Question

uses printers
ppix, ppiy: Integer;
procedure Getppi(DC: HDC);
begin
  ppix := GetDeviceCaps(DC, logPixelsX);
  ppiy := GetDeviceCaps(DC, logPixelsY);
end;function CmToPixelX(cm: Real): Integer;
begin
   Result := Trunc(Cm * ppix / 2.54);
end;function CmToPixelY(cm: Real): integer;
begin
  Result := Trunc(Cm * ppiy /2.54);
end;
/////////////////////////////////////////
  printer.BeginDoc;
  printer.Canvas.Font.Size:=12;
  printer.Canvas.TextOut(CmToPixelX(12),CmToPixelY(14),'你好');
  printer.EndDoc;这样对吗？

Answer 1

不懂DELPHI但里面的 ppix 和 ppiy 是不是沒定義啊？而且沒有值吧我當VB看了。