|
|
|
| Title | List available printers and select one |
|---|
| Keywords | printer, select printer, list printers |
|---|
| Categories | Graphics, Utilities, Windows |
|---|
|
|
|
Loop through the Printers collection examining the DeviceName property until your find the printer you want. Set the Printer object to point to the Printers collection entry you want to select.
|
|
' Return True if there is a problem.
Private Function SelectPrinter(ByVal printer_name As _
String) As Boolean
Dim i As Integer
SelectPrinter = True
For i = 0 To Printers.Count - 1
If Printers(i).DeviceName = printer_name Then
Set Printer = Printers(i)
SelectPrinter = False
Exit For
End If
Next i
End Function
|
| |
 |
| |
|
