Flexgrid is one of the most used controls for report generation in our programming firm. Recently, we required to have a function the will automatically resize the Flexgrid column depends on the column content. If you are somehow problematic about this method then you may try the code below if it will suit to your need.
Public Sub AutoFitFlexGrid(FForm As Form, ByVal FFlexGrid As MSFlexGrid)
Dim FGRow As Long
Dim FGColumn As Long
Dim FGCellWidth As Single
Dim FGColumnWidth As Single
Dim FGMaxColumns As Long
Dim FGMaxRows As Long
FGMaxColumns = vFlexGrid.Cols - 1
FGMaxRows = vFlexGrid.Rows - 1
For FGColumn = 0 To FGMaxColumns
FGColumnWidth = 0: FGCellWidth = 0
For FGRow = 0 To FGMaxRows
FGCellWidth = vForm.TextWidth(vFlexGrid.TextMatrix(FGRow, FGColumn))
If FGColumnWidth < FGCellWidth Then FGColumnWidth = FGCellWidth
Next
vFlexGrid.ColWidth(FGColumn) = FGColumnWidth + 120
Next
End Sub
