'打印时以左上角为原点,向右和向下为正,反向为负
'字号为10号
Printer.FontSize=10
'打印机的横坐标
Printer.CurrentX = 0
'打印机的纵坐标
Printer.CurrentY = 0
'设定打印机是横向打印还是纵向打印,1:纵向;2:横向
Printer.Orientation = 1
'打印内容
Printer.Print ""
For i=1 To lvwPub.ListItems.Count
'打印ListView中每一行中每列的内容
'在打印每一列前先设定打印位置(坐标)
'打印机的横坐标
Printer.CurrentX = 0
'打印机的纵坐标
Printer.CurrentY = 0+i*5
'*5中的5为每行的高度
'ListView中每一行中第0列的内容
Printer.Print lvwPub.ListItems(i)
'打印机的横坐标
Printer.CurrentX = 10
'打印机的纵坐标
Printer.CurrentY = 0+i*5
'ListView中每一行中第1列的内容
Printer.Print lvwPub.ListItems(i).SubItems(1)
'打印机的横坐标
Printer.CurrentX = 20
'打印机的纵坐标
Printer.CurrentY = 0+i*5
'ListView中每一行中第2列的内容
Printer.Print lvwPub.ListItems(i).SubItems(2)
'打印机的横坐标
Printer.CurrentX = 30
'打印机的纵坐标
Printer.CurrentY = 0+i*5
'ListView中每一行中第3列的内容
Printer.Print lvwPub.ListItems(i).SubItems(3)
Next
'打印内容处理完毕,打印机打开始打印
Printer.EndDoc
没有打印机可以用Snagit软件,它是一个截图软件,可以代替打印机使用,打印的内容会以图片的形式显示再来