Private Function GetAllColumnWidths(objGrid As Object) As Single
On Error Resume Next
 
Dim lngCol As Long
Dim lngOldCol As Long
Dim sngWidths As Single
 
    sngWidths = 0
    objGrid.Redraw = False
    lngOldCol = objGrid.Col
    For lngCol = 0 To objGrid.Cols - 1
        objGrid.Col = lngCol
        sngWidths = sngWidths + objGrid.CellWidth + (objGrid.GridLineWidth * _
          OnePixel)
    Next lngCol
    objGrid.Col = lngOldCol
    objGrid.Redraw = True
 
    GetAllColumnWidths = sngWidths
 
End Function

Ohne Mampf, kein Kampf !