使用
printer.scalex、printer.scaley、screen.twipsperpixels三个方法可以换算你要求的东东

解决方案 »

  1.   

    vbUser  0 用户定义:指示 object 的宽度和高度设置为自定义值。 
    vbTwips  1 缇(每逻辑英寸 1440 缇;每逻辑厘米 567 缇)。 
    vbPoints 2 磅(每逻辑英寸 72 点)。 
    vbPixels  3 像素 (显示器或打印机分辨率的最小单位)。 
    vbCharacters 4 字符(水平 = 每单位 120 缇,垂直 = 每单位 240 缇)。 
    vbInches 5 英寸 
    vbMillimeters 6 毫米 
    vbCentimeters 7 厘米 
    vbHimetric 8 HiMetric。如果省略 fromscale,则 HiMetric 为缺省值。 
    vbContainerPosition 9 决定控件位置。 
    vbContainerSize 10 决定控件大小。