?? 如何打印listview(報表型)的內容.txt
字號:
沒 有 特 別 簡 單 的 辦 法 。
一 個 辦 法 是 利 用 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>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -