Advertisement
5_2007-2008 Miscellaneous #183633

Printers List

Get a list of all the printers available on your computer (Locally and networked)

AI

AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Source Code
original-source
'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
Original Comments (3)
Recovered from Wayback Machine