• Home
 · 
• Miscellaneous
 · 
• Display printer list and print to selected printer.

Display printer list and print to selected printer.

Display printer list and print to selected printer.

Rate Display printer list and print to selected printer.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Display printer list
Private Sub Form_Load()
    For Each P In Printers
      List1.AddItem P.DeviceName
    Next
End Sub

'Prin test to selected printer
Private Sub Command1_Click()
    Set Printer = Printers(List1.ListIndex)
    
    Printer.Print "Print"
    Printer.EndDoc
End Sub