VB6 指定印表機

Private Sub Command1_Click()
For I = 0 To Printers.Count - 1
List1.AddItem Printers(I).DeviceName '所有印表機
Next
End Sub

Private Sub List1_Click()
Set printer = Printers(List1.ListIndex) '指定印表機
End Sub