Lo he conseguido, aunque no estoy del todo contento con el método.

Como tengo un máximo de 9 columnas, y las que están en posición 3 y 6 corresponden a memos (pueden tener textos largos), lo que hago es distribuir los huecos que quedan al apagar controles entre estos dos en proporción 1/3 - 2/3 si están ambos encendidos. Si apago alguno, se distribuye entero al que esté encendido. Si están ambos apagados, no redistribuyo nada porque no me da la gana. Esto lo hago con las variables suma1 y suma2.

En el formulario hay casillas de verificación que se llaman V1, V2... hasta V9. Se corresponden con los títulos que se llaman lbl1, lbl2... hasta lbl9 y con los datos que se llaman txt1, txt2... hasta txt9.

Probé con cambiar la propiedad visible y left de los controles para ubicarlos en su sitio, pero no funciona. Creo que los controles txt y lbl están dentro de algún tipo de contenedor que se repite en encabezados, pies de página y cuerpo del informe, que sería lo que debería tocar si supiera cómo hacerle referencia.

Como a falta de pan buenas son tortas, lo que hago es tocar la propiedad .width de los controles, poniéndola a cero cuando no quiero que aparezcan.

Aquí el código por si le es útil a alguien, y por si hay sugerencias.

_{Public Sub Ordenar()}

_{Dim a As Byte}

_{Dim sum, suma1, suma2 As Long}

_{Dim lbl As Label}

_{Dim txt As TextBox}

_{Dim V As CheckBox}

_{With [Report_Encargos abiertos]}

_{cont = 0}

_{sum = 0}

_{For a = 1 To 9}

    _{Set V = Me.Controls("V" & a)}

    _{Debug.Print V.Name}

    _{If (V = 0) Then}

        _{Set lbl = .Controls("lbl" & a)}

        _{sum = sum + 60 + lbl.Width}

    _{End If}

_{Debug.Print "sum= "; sum}

_Next

_{If Me.V3 = 0 Then}

 _{suma1 = 0}

 _{If Me.V6 = 0 Then}

 _{suma2 = 0}

 _Else

 _{suma2 = sum}

 _{End If}

_Else

 _{If Me.V6 = 0 Then}

 _{suma1 = sum}

 _{suma2 = 0}

 _Else

 _{suma1 = sum \ 3}

 _{suma2 = sum - suma1}

 _{End If}

_{End If}

_{For a = 1 To 9}

    _{Set lbl = .Controls("lbl" & a)}

    _{Debug.Print CStr(lbl.Left) & " x " & CStr(lbl.Width)}

    _{Set V = Me.Controls("V" & a)}

    _{Set txt = .Controls("txt" & a)}

    _{lbl.Visible = V}

    _{txt.Visible = V}

    _{Select Case a}

    _{Case 1, 7, 8}

      _{lbl.Width = 1425}

      _{txt.Width = 1425}

    _{Case 2}

      _{lbl.Width = 2155}

      _{txt.Width = 2155}

    _{Case 3}

      _{lbl.Width = 2400 + suma1}

      _{txt.Width = lbl.Width}

    _{Case 4}

      _{lbl.Width = 1365}

      _{txt.Width = 1365}

    _{Case 5}

      _{lbl.Width = 1080}

      _{txt.Width = 1080}

    _{Case 6}

      _{lbl.Width = 2535 + suma2}

      _{txt.Width = lbl.Width}

    _{Case 9}

      _{lbl.Width = 1575}

      _{txt.Width = 1575}

    _{End Select}

    _{If (V = 0) Then}

        _{lbl.Width = 0}

        _{txt.Width = 0}

    _{End If}

_Next

_{End With}

_{Debug.Print "FIN"}

_{Set lbl = Nothing}

_{Set txt = Nothing}

_{Set V = Nothing}

_{End Sub}

Un saludo