CLEAR #define LOGPIXELSX 88 && Logical pixels/inch in X #define LOGPIXELSY 90 && Logical pixels/inch in Y #define PHYSICALWIDTH 110 && Physical Width in device units #define PHYSICALHEIGHT 111 && Physical Height in device units #define PHYSICALOFFSETX 112 && Physical Printable Area x margin #define PHYSICALOFFSETY 113 && Physical Printable Area y margin DECLARE INTEGER GetDeviceCaps IN gdi32 ; INTEGER hDC,; INTEGER nIndex DECLARE INTEGER CreateDC IN gdi32 ; STRING lpszDriver, ; STRING lpszDevice, ; INTEGER lpszOutput, ; INTEGER lpInitData DECLARE INTEGER DeleteDC IN gdi32 ; INTEGER hDC lcPrinter = SET("Printer",3) lnDC = CreateDC("", lcPrinter, 0, 0) lnPixelsPerInchY = GetDeviceCaps(lnDC, LOGPIXELSY) lnPixelsPerInchX = GetDeviceCaps(lnDC, LOGPIXELSX) ? lnPixelsPerInchY, lnPixelsPerInchX lnPrinterMarginLeft = GetDeviceCaps(lnDC , PHYSICALOFFSETX) lnPrinterMarginTop = GetDeviceCaps(lnDC , PHYSICALOFFSETY) lnPrinterMarginLeftInch = lnPrinterMarginLeft / lnPixelsPerInchX lnPrinterMarginTopInch = lnPrinterMarginTop / lnPixelsPerInchY ? lnPrinterMarginTopInch, lnPrinterMarginLeftInch DeleteDC(lnDC)