Question

VB中怎么打印listbox中内容，要连接打印机打出来。能给出具体代码最好。

Answer 1

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
Printer.Print List1.List(i)
Next
End Sub

追问

Private Sub Command1_Click()
Printer.Print "沃尔玛超市"
For i = 0 To List1.ListCount - 1
Printer.Print List1.List(i)
Printer.Print "一共消费~~~~"
Next
End Sub