public event EventHandler<PivotCustomRowHeightEventArgs> CustomRowHeight

Public Event CustomRowHeight As EventHandler(Of PivotCustomRowHeightEventArgs)

using System;
using DevExpress.XtraReports.UI.PivotGrid;
// ...

private Graphics gr = Graphics.FromHwnd(IntPtr.Zero);

private void xrPivotGrid1_CustomRowHeight(object sender, PivotCustomRowHeightEventArgs e) {
    e.RowHeight = 0;
    for (int i = 0; i <= e.ColumnCount - 1; i++) {
        var rowCellValue = e.GetRowCellValue(i);
        if (rowCellValue == null)
            continue;
        string value = rowCellValue.ToString();
        SizeF size = gr.MeasureString(value, e.DataField.Appearance.Cell.Font, e.DataField.Width);
        int height = Convert.ToInt32(size.Height + 0.5);
        e.RowHeight = e.RowHeight > height ? e.RowHeight : height;
    }
}

Imports System
Imports DevExpress.XtraReports.UI.PivotGrid
' ...

Private gr As Graphics = Graphics.FromHwnd(IntPtr.Zero)

Private Sub xrPivotGrid1_CustomRowHeight_1(ByVal sender As Object, _
ByVal e As PivotCustomRowHeightEventArgs)
    e.RowHeight = 0
    For i As Integer = 0 To e.ColumnCount - 1
        Dim rowCellValue = e.GetRowCellValue(i)
        If rowCellValue Is Nothing Then
            Continue For
        End If
        Dim value As String = rowCellValue.ToString()
        Dim size As SizeF = gr.MeasureString(value, e.DataField.Appearance.Cell.Font, e.DataField.Width)
        Dim height As Integer = CInt(Fix(size.Height+0.5))
        e.RowHeight = If(e.RowHeight > height, e.RowHeight, height)
    Next i
End Sub

pivot2.CustomColumnWidth += PivotCustomColumnWidth;
pivot2.CustomRowHeight += PivotCustomRowHeight;
pivot2.AfterPrint += PivotAfterPrint;

AddHandler pivot2.CustomColumnWidth, AddressOf PivotCustomColumnWidth
AddHandler pivot2.CustomRowHeight, AddressOf PivotCustomRowHeight
AddHandler pivot2.AfterPrint, AddressOf PivotAfterPrint