about打印预览，图元文件的1像素对应打印机多少像素

Question

如下是我做的打印预览主要代码，98下完全正确，但是xp下失真。可是xp下用ACDSee直接打印产生的图元文件也完全正确。  
我想知道的是：图元文件的1像素对应打印机多少像素？  
注：    WmfFile  是  ShortString，对应于产生的图元文件名。  
----  
var  
   wmf  :  TMetafile;  
begin  
   wmf  :=  TMetaFile.Create;  
   try  
       wmf.LoadFromFile(WmfFile);  
       with  Printer  do  
       begin  
           BeginDoc;  
           Printer.Canvas.StretchDraw(Rect(0,0,(wmf.Width),(wmf.Height)),  wmf);  
           EndDoc;  
       end;  
   finally  
       wmf.Free;  
   end;  
 
谢谢  

Answer 1

好像要查询设备的capacity才能得到具体的GetDeviceCaps

Answer 2

var
  ScaleX, ScaleY: Integer;   try
    BeginDoc;  // **
    ScaleX := GetDeviceCaps(Handle, logPixelsX) div PixelsPerInch;
    ScaleY := GetDeviceCaps(Handle, logPixelsY) div PixelsPerInch;
    R := Rect(0, 0, wmf.Width * ScaleX, wmf.Height * ScaleY);
    Canvas.StretchDraw(R, m_BitMap);  // **
  finally
    EndDoc;  // **
  end;