也可以参考如下的代码: 一个办法是利用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 另一个办法是遍历数据的同时,将数据输出到一个临时数据库文件,然后利用报表控件输出。
http://www.csdn.net/cnshare/soft/15/15518.shtm
一个办法是利用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
另一个办法是遍历数据的同时,将数据输出到一个临时数据库文件,然后利用报表控件输出。
用Graphics依次输出
谢谢了
因为大家都是在讨论 PrintDocument ,与 ListView 好象没有必然的联系。楼主能不能把意图说详细一点。