excel - 列表框数据打印 Excel VBA

Question

查看列表框我创建了一个用户表单，其中包含一个可以搜索和过滤的列表框。在我搜索了特定信息之后，我想将信息打印出来。我的想法是将列表框中的信息复制并粘贴到另一张纸上，然后打印该纸。但是我没有得到正确的代码......

请帮忙....

Application.ScreenUpdating = False
Application.DisplayAlerts = False

    Dim shPrint As Worksheet
    Dim t As Long
    Dim i As Long
    Dim x As Long
    
    Set shPrint = ThisWorkbook.Sheets("Print")
    t = shPrint.Range("H10000").End(xlUp).Row
    
    shPrint.Range("A" & 2, "H" & t + 1).ClearContents
    
    For i = 1 To PatientDetails.ListDatabase1.ListCount - 1
    For x = 0 To 8
    shPrint.Cells(i + 1, x) = PatientDetails.ListDatabase1.List(i, x)
    Next x
    Next i

Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

如果您需要任何其他信息，请告诉我！

见用户表单

标签： excelvbaprintinglistboxuserform