组合框多选打印的问题

参考网上的组合框的模块，设计了一个可多选的组合框。

Public Function MultComb()
  Dim i As Integer, strList As String
    With Screen.ActiveControl
        If Len(Nz(.Value)) = 0 Then
            .Tag = ""
        Else
            '当选择的数据在组合框中已经存在时（数据在中间或末尾），把已存在的数据替换成空字符串
            If InStr(1, .Tag, "、" & .Value) > 0 Then
                ' MsgBox "输入的数据已经存在"
                ' Exit Function
                .Tag = Replace(.Tag, "、" & .Value, "")
            End If
            '当选择的数据在组合框中已经存在时（数据在开头），把已存在的数据替换成空字符串
            If InStr(1, .Tag, .Value) > 0 Then
                .Tag = Replace(.Tag, .Value, "")
            End If
            '写入选择的数据
            .Tag = .Tag & "、" & .Value
            If Left$(.Tag, 1) = "、" Then
                .Tag = Mid$(.Tag, 2)
            End If
            .Value = .Tag
        End If
    End With
End Function

点击下载此附件

但是组合框多选后，报表又无法相应按多选的结果打印出来。想了很多办法，参考网上不同做法，还是无法解决这个组合框多选报表打印的问题！请老师高手多多指教！