把listview放在数据报告vb6中

Question

我需要打印我的列表视图并将其放入数据报告

这是数据报告的代码

Set DataReport1.DataSource = rs   
DataReport1.Sections("section1").Controls("text1").DataField = "name"
DataReport1.Sections("section1").Controls("text2").DataField = "code"
DataReport1.Sections("section1").Controls("text3").DataField = "evalmark"
DataReport1.Show 1

和listview的这段代码

 Function add2()
 L1.ListItems.Add , , rs.Fields("name").Value
 L1.ListItems(L1.ListItems.Count).SubItems(1) = rs.Fields("code").Value
 L1.ListItems(L1.ListItems.Count).SubItems(2) = rs.Fields("evalmark").Value
 End Function