Imprimir pdf automaticamente

Necesito algo parecido tengo 100 pdf y solo selecciono uno coloco toda su ruta pero donde le doy la opcion que elija la impresora.
 

sub Imprimir_PDF()

dim i, ruta(3)

i= 0

ruta(0)= "c:\prueba.pdf"

ruta(1)= "c:\prueba2.pdf"

ruta(2)= "c:\prueba3.pdf"

for i= 0 to 2

fnShellExecuteVB ruta(i)

next

end sub

function fnShellExecuteVB (druta)

dim objShell

set objShell = CreateObject("Shell.Application")

objShell.ShellExecute druta, "", "", "print", 1

set objShell = nothing

end functio

En que lado configuro la impresora por ejemplo \\servidor\impresora1  esto es variable ya que el usuario podria elegir otra impresora \\servidor\impresora2 esto es un dolor de cabeza si alguien me podria ayudar se le agradeceria.