Como puedo elegir una impresora distinta a la preseleccionada para un informe con macro

Tengo creada una macro para excel que me crea un informe en word y manda su impresión. ¿Cómo puedo elegir una impresora distinta a la preseleccionada por mi pc?

¿Cómo puedo dar nombre al archivo de word creado en función de un valor en casilla de excel y que se guarde automáticamente?

Dejo la macro a continuación, muchas gracias

Sub RECIBO()
'Ubicación y nombre de la plantilla
'La ubicación está dada por la concatenación de los datos de dos celdas + la extensión del archivo de plantillas de Word.
wArch = Hoja13.Range("C4").Text & Hoja13.Range("C5").Text & ".dot"
'Con la variable siguiente definimos que vamos a trabajar con un documento de Word.
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
'Creamos un documento nuevo con la plantilla
objWord.documents.Add Template:=wArch, NewTemplate:=False, DocumentType:=0
'Utilizamos For para recorrer todas las variables de 1 al dato de la celda C2.
For i = 1 To Hoja13.Range("c2").Value 'celda dónde está la cuenta
datos = Hoja13.Range("B" & i).Text 'dónde están los datos
reemp = Hoja13.Range("A" & i).Text 'dónde están las etiquetas
'utilizamos buscar y reemplazar de word
With objWord.Selection.Find
.Text = datos 'busca el texto de datos
.Replacement.Text = reemp 'reemplaza por el texto
.Execute Replace:=2 'la variable en dos es para reemplazar todos los valores
End With
Next i
objWord.Activate 'Activa el documento de word
objWord.PrintOut
End Sub