晕倒，这例子还是好的嘛，怎么没人回应啊？

我刚好急需，谢谢啊，我看看哦！

正在找，先看看啦，谢！

谢谢你

Sub 添加列表表头()
    Dim FimgX As ListImage
   
    Form1.ListView1.ColumnHeaders.Clear     '清除列标题
    Form1.ListView1.ListItems.Clear         '清除行数据
    Form1.ListView1.View = lvwReport        '视图模式为:报表视图
    Form1.ListView1.FullRowSelect = True    '整行选择
    Form1.ListView1.MultiSelect = True      '多行选择
    Form1.ListView1.GridLines = True        '显示网格
    Form1.ListView1.LabelEdit = lvwManual   '禁止编辑第一列

'    Form1.ListView1.ColumnHeaders.Add 1, , "id", 0
    Form1.ListView1.ColumnHeaders.Add 1, , "应付卡号", 2000
    Form1.ListView1.ColumnHeaders.Add 2, , "单位名称", 2000, lvwColumnCenter
    Form1.ListView1.ColumnHeaders.Add 3, , "终端号", 1800, lvwColumnCenter
   
    Set FimgX = Form1.ImageList1.ListImages.Add(, , LoadPicture(App.Path & "\1×22.bmp"))
    Set FimgX = Form1.ImageList2.ListImages.Add(, , LoadPicture(App.Path & "\1×22.bmp"))

    '若要将 ImageList 控件和 ListView 控件一起使用，必须将 Icons 和 SmallIcons 属性与特定的 ImageList 控件关联。
    Form1.ListView1.Icons = Form1.ImageList1
    Form1.ListView1.SmallIcons = Form1.ImageList2
End Sub

[此贴子已经被作者于2020-12-4 13:28编辑过]

'打印时以左上角为原点，向右和向下为正，反向为负
'字号为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

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
  Printer.EndDoc

Option Explicit

Dim XS As Long, YS As Long         '总体偏差
Dim XLEFT As Long, YTOP As Long     '页边距

     
Public Sub prnt(X As Single, y As Single, txt As String, Optional fnt As Long = 12)
    Printer.CurrentX = X + XS + XLEFT       '打印位置，页边距+总体偏差+位置
    Printer.CurrentY = y + YS + YTOP
    Printer.FontSize = fnt
    Printer.Print txt
End Sub

Private Sub Command1_Click()

    Printer.ScaleMode = vbTwips     '单位为缇,窗体控件坐标也为缇，必须统一

    Call prnt(Label1.Left, Label1.Top, Label1.Caption, 12)
    Call prnt(Label2.Left, Label2.Top, Label2.Caption, 12)
    Call prnt(Text1.Left, Text1.Top, Text1.Text, 12)
   
    Printer.EndDoc
End Sub

Private Sub Form_Load()

    '初始化
    XS = 0 * 567            '这二个数据，应该是保存到配置文件里的，每次打印前再临时读取
    YS = 0 * 567            '配置文件里，这二个值的单位是厘米
   
    XLEFT = 2.5 * 567
    YTOP = 2.5 * 567       '页边距，与上面这边相同，可以固定为一个值，这里是固定为 2.5厘米

End Sub

没来晚吧