VB Snippet - Change printer for Application Only

VB Code:

' This piece of code changes the printer dynamically and only changes the printer for that application. So the actual default printer for the system remains unaffected. 
 
Dim lobjPrinter As Printer 
 
For Each lobjPrinter In Printers 
If UCase(Trim("Some Printer Name")) = UCase(Trim(lobjPrinter.DeviceName)) Then 
 
Set Printer = lobjPrinter 
 
Exit For 
 
End If