如何打印listview（报表型）的内容.txt

VB技巧问答10000例 VB技巧问答10000例

没 有 特 别 简 单 的 办 法 。 
    一 个 办 法 是 利 用 ListView.ListItems集 合 遍 历 所 有 的 数 据 ， 并 输 出 至 打 印 机 。 如 ： 
     Dim i, j 
     For i = 1 To ListView1.ListItems.Count 
     Printer.Print ListView1.ListItems(i), 
     For j = 1 To ListView1.ColumnHeaders.Count - 1 
     Printer.Print ListView1.ListItems(i).SubItems(j), 
     Next 
     Printer.Print 
     Next 
    另 一 个 办 法 是 遍 历 数 据 的 同 时 ， 将 数 据 输 出 到 一 个 临 时 数 据 库 文 件 ， 然 后 利 用 报 表 控 件 输 出 。 
<END>