MergePreviousCells working?

Option Explicit

Private Sub Form_Load()
Dim column As ReportColumn
Dim item As ReportRecordItem

   With Me.ReportControl1
      Set column = .Columns.Add(.Columns.Count, "1", 50, True)
      column.Editable = False
      column.Sortable = False
      column.Alignment = xtpAlignmentWordBreak
      column.HeaderAlignment = xtpAlignmentWordBreak Or xtpAlignmentCenter
      
      Set column = .Columns.Add(.Columns.Count, "2", 200, True)
      column.Sortable = False
      column.Alignment = xtpAlignmentWordBreak
      column.HeaderAlignment = xtpAlignmentWordBreak Or xtpAlignmentCenter
     
      Set column = .Columns.Add(.Columns.Count, "3", 50, True)
      column.Sortable = False
      column.HeaderAlignment = xtpAlignmentWordBreak Or xtpAlignmentCenter
     
      With .Records.Add
         .AddItem ""
         Set item = .AddItem("CodeJock MFC and ActiveX products ")
         item.MergePreviousCells = 1
         item.Alignment = xtpAlignmentVCenter Or xtpAlignmentCenter
         .AddItem ""
      End With
      With .Records.Add
         Set item = .AddItem("Platform ")
         Set item = .AddItem("MFC, ActiveX")
         .AddItem ""
      End With
      With .Records.Add
         .AddItem ""
         Set item = .AddItem("Calendar, Command Bars, Controls, Docking Pane")
         .AddItem ""
      End With
      With .Records.Add
         Set item = .AddItem("Codejock products for MFC and ActiveX developers ")
         item.MergePreviousVerticalCells = 1
         item.Alignment = xtpAlignmentWordBreak
        
         Set item = .AddItem("Property Grid, Report Control, Shortcut Bar, Skin Framework, Syntax Edit, Task Panel")
         .AddItem ""
      End With
      With .Records.Add
         .AddItem ("Next row")
         .AddItem ("Next item")
         .AddItem ""
      End With
      With .Records.Add
         .AddItem ("Last row")
         .AddItem ("Last item")
         .AddItem ""
      End With
     
      .AllowEdit = True
      .FocusSubItems = True
      .StrictBestFit = True
      .PaintManager.FixedRowHeight = False
      .PaintManager.DrawGridForEmptySpace = True
      .PaintManager.HorizontalGridStyle = xtpGridSolid
      .PaintManager.VerticalGridStyle = xtpGridSolid
      .PaintManager.GridLineColor = RGB(192, 192, 255)
      .PaintManager.AllowMergeCells = True
      .PaintManager.ColumnStyle = xtpColumnOffice2007
      .PaintManager.ForceShowTooltip = True
      .ToolTipContext.Style = xtpToolTipOffice2007
      '.PaintManager.UseColumnTextAlignment = True
      '.FreeHeightMode = True
      .AllowColumnReorder = False
      .AllowColumnSort = False
      .AllowColumnRemove = False
      .ShowGroupBox = False
      .CreateRowNumberColumn 10
      .EnableDragDrop "MergeReport", xtpReportAllowDragMove Or xtpReportAllowDrop
      .Populate
   End With
End Sub

Private Sub Form_Resize()
    Me.ReportControl1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End Sub

hmm, didn't see it on your list or I just plain missed it.

It appears the developer who added this feature did not intend for the columns to be re sized if you used this feature.

Hi,

Nevermind, managed to find it... I add the property '.AllowColumnSort = False' and voila...

A complete re-write of the Merge Cell functionality is in the works