Microsoft Office Forums - View Single Post - [Solved] How to center a page horizontally?

macropod · 11-12-2013, 06:20 PM

The display resolution is equally irrelevant, but if you really want to find out:

Code:

Private Declare Function GetSystemMetrics32 Lib "User32" _
    Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Sub GetMonitorInfo()
Dim h As Long, w As Long
h = GetSystemMetrics32(1) ' height in pixels
w = GetSystemMetrics32(0) ' width in pixels
MsgBox Format(w, "#,##0") & " wide * " & Format(h, "#,##0") & " high"
End Sub