"列印時以左上角為原點，向右和向下為正，反向為負

"字號為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軟體，它是一個截圖軟體，可以代替印表機使用，列印的內容會以圖片的形式顯示再來