>>708
Dim pX, pY, mX, mY
Printer.ScaleMode = vbPixels
pX = Printer.ScaleWidth
pY = Printer.ScaleHeight
Printer.ScaleMode = vbMillimeters
mX = Printer.ScaleWidth
mY = Printer.ScaleHeight
'あとは計算で出るのでは?正しく出るかは検証しないとだめだけど。