沒 有 特 別 簡 單 的 辦 法 。 
    一 個 辦 法 是 利 用 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>