ببین این جواب میده 
 

Dim X As Printer

For Each X In Printers

 If X.DeviceName = "FinePrint pdfFactory Pro" Then

  Set Printer = X

 End If

Next