by Anil Upadhyay (2 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: 
(6 Votes)
Get a list of all the printers available on your computer (Locally and networked)
Code Returns
A list of printers
VBcoders'Get all printers available on the computer
'usage
'label1.caption=printeravailable
Public Function printeravailable() As String
Dim p As Printer
For Each p In Printers
printeravailable = printeravailable & p.DeviceName & " on " & p.Port & vbCrLf
Next
End Function