WITH THISFORM.Grid1.Column1 m.lcFontName = .FontName m.lnFontSize = .FontSize m.lcFontStyle = IIF(.FontBold,"B","") + IIF(.FontItalic,"I","") IF EMPTY(m.lcFontStyle) m.lcFontStyle = "N" ENDIF m.lnAverageWidth = FONTMETRIC(6,m.lcFontName,m.lnFontSize,m.lcFontStyle) ENDWITH SELECT MAX(TXTWIDTH(ALLTRIM(Tabela.Campo),m.lcFontName,m.lnFontSize,m.lcFontStyle)*m.lnAverageWidth) ; FROM TabelaÉ devolvida a dimensão máxima, em pixels, do campo.