Private Function SetPrinter(ByVal prnName As String) _
  As Boolean
 
  Dim Result As Boolean
  Dim x As Integer
 
  Result = False
  If Printers.Count > 0 Then
    For x = 0 To Printers.Count - 1
      If Printers(x).DeviceName = prnName Then
        Set Printer = Printers(x)
        Result = True
        Exit For
      End If
    Next x
  End If
  SetPrinter = Result
End Function