Public Function SetPrinter(ByRef vsPrinterName As String) As Boolean
Dim oTestPrinter As Printer
For Each oTestPrinter In Printers
If oTestPrinter.DeviceName = vsPrinterName Then
Set Printer = oTestPrinter
SetPrinter = True
Exit Function
End If
Next oTestPrinter
End Function