This should get the user's screen resolution:
Declare Function GetSystemMetrics Lib "user32" (ByVal nIndex As Long) As Long
Public Sub GetScreenRez()
Const X_FULL_SCREEN = 16 Const Y_FULL_SCREEN = 17
Dim lngX As Long Dim lngY As Long
lngX = GetSystemMetrics(X_FULL_SCREEN) lngY = GetSystemMetrics(Y_FULL_SCREEN)
Debug.Print "Screen Resolution = " & lngX & " x " & lngY
End Sub -- Arvin Meyer, MCP, MVP http://www.datastrat.com http://www.mvps.org/access http://www.accessmvp.com
"cinnie" <cinnie[ at ]discussions.microsoft.com> wrote in message news:1FFAE7EC-1A93-49D3-A385-B48582CCB0C5[ at ]microsoft.com...
[Quoted Text] > greetings > > > from within Access code, how can I determine the DPI setting of the user's > computer? (the value found in Control Panel/Display/Settings/Advanced/DPI > setting) > > -- > Thank you in advance > cinnie
|