Public Function ShowPrinters()
 
 
 
	On Error GoTo errHandler:
 
	Dim l As Long
 
	Dim lCount As Long
 
	Dim liststr As String
 
 
 
	liststr = ""
 
 
 
	lCount = Printers.Count
 
 
 
	If lCount = 0 Then
 
	liststr = "(No Printer Installed)"
 
	Else
 
	For l = 0 To lCount - 1
 
	liststr = liststr & vbCr & Printers(l).DeviceName
 
	Next
 
	End If
 
 
 
	'Show all printers in a messagebox
 
	MsgBox liststr, , "Printers"
 
 
 
	Exit Function
 
	errHandler:
 
	End Function