Private Declare Function GetDeviceCaps Lib "GDI32" _

   (ByVal hDC As Long, _

    ByVal nIndex As Long) As Long



Const PHYSICALOFFSETY As Long = 113



Private Function GetYOffset() As Long

    GetYOffset = GetDeviceCaps(Printer.hDC, PHYSICALOFFSETY)

End Function