为什么我的打印机打不了正方形 Printer .Canvas.Rectangle(Rect(0,0,200,200))出来是长方形

EPSON LQ-670K 纸宽207mm高102mm Pix(1488pix,722pix) DPI(180,180)本来我设置的纸宽度是210mm,不知为什么少了3mm;
执行下面的代码得到了一个宽21mm 高28mm的长方形，请问出了什么问题。  Printer .BeginDoc;
  Printer .Canvas.Rectangle(Rect(0,0,200,200));
  Printer.EndDoc;
---------------------------------------------------
GetDeviceCaps(printer.Handle,PHYSICALWIDTH)
和GetDeviceCaps(printer.Handle,horzres)取的值都是宽度，为什么不同？？而GetDeviceCaps(dcprinter.Handle,PHYSICALHEIGHT))
和GetDeviceCaps(printer.Handle,vertres)取高度得到的值是相同的？？？