.AddCol _
                sKey:=CStr(rs("CalendarWeekID")), _
                sHeader:=rs("ShortDescription"), _
                lWidth:=42, _
                eHeaderAlignH:=igAlignHCenter, _
                eHeaderAlignV:=igAlignVCenter

.AddCol _
                sKey:=CStr(rs("CalendarWeekID")), _
                sHeader:=rs("ShortDescription"), _
                lWidth:=lScalingFactor * 42, _
                eHeaderAlignH:=igAlignHCenter, _
                eHeaderAlignV:=igAlignVCenter

Option Compare Database
Option Explicit

Private Const LOGPIXELSX As Long = 88

Private Declare Function GetDeviceCaps Lib "gdi32.dll" ( _
ByVal hdc As Long, _
ByVal nIndex As Long) As Long

Private Declare Function GetDC Lib "user32.dll" ( _
ByVal hwnd As Long) As Long

Declare Function ReleaseDC Lib "user32.dll" ( _
ByVal hwnd As Long, _
ByVal hdc As Long) As Long

Public Function GetDpi() As Long

Dim hdcScreen As Long
Dim iDPI As Long

iDPI = -1
hdcScreen = GetDC(0)
If (hdcScreen) Then
iDPI = GetDeviceCaps(hdcScreen, LOGPIXELSX)
ReleaseDC 0, hdcScreen
End If

GetDpi = iDPI

End Function