[Resolvido]Impressora na Rede

Boa tarde
Tenho 01 relatório que dependendo do usuário pode ser imprimido em terminais diferentes, e o seguinte código que estou colocando:

Dim strDefaultPrinter as string

'Obter impressora padrão atual.
strDefaultPrinter = Application.Printer.DeviceName

'Para a impressora de sua escolha:
Set Application.Printer = Application.Printers("\\VENDAS_12\HP_1102w_VENDAS")

DoCmd.OpenReport "RelatorioVendas", acViewNormal, "", "((([vendaitens]![codvenda])=[Forms]![Venda]![codvenda]))"
'Fazer o que quiser .... imprimir relatórios

'Voltar
Set Application.Printer = Application.Printers(strDefaultPrinter)

parece tudo tão simples mas não estou conseguindo acessar a impressora que esta na rede, ja tentei de varias formas e pesquisei, aguardo alguma ajuda, obrigado.

Bom dia, continuo procurando a solução, já tentei de varias formas, gostaria de saber se estou utilizando o código de maneira errada.
vou expor novamente a duvida minha para que não fique confuso.
Tenho 01 relatório, mas o mesmo vai ser impresso em impressoras diferentes que estão da Rede da loja.
Para fazer isso vou usar um Select Case, ou If , mas o problema é fazer o código trocar a impressora padrão pela da rede.
Aguardo se alguem já passou por caso parecido e puder me ajudar.Obrigado.

Boa noite, depois de fazer algumas pesquisa e de alguns teste adaptei o código abaixo,

Dim a As Printer ' esta declaração pode esta a nivel de modulo

Private Sub BtnConfirmaVenda_Click()
Dim Oldprinter As Printer
Set Oldprinter = Application.Printer
Dim NomeImpressora As Variant
NomeImpressora = "\\VENDAS_12\HP_1102w_VENDAS"
For Each a In Printers
If a.DeviceName = NomeImpressora Then Set Application.Printer = a
Next
DoCmd.OpenReport "RelatorioLazer", acViewNormal, "", "((([vendaitens]![codvenda])=[Forms]![Venda]![codvenda]))"
Application.Printer = Oldprinter
End Sub

vou dar como resolvido , pois o código funcionou para mim, deixo ele postado para se caso algum usuário tiver o mesmo problema, a e lembrando a impressora deve estar configurada como "Impressora Padrão"
se tiver como "Impressora específica" não funciona, obrigado.

Agora sim.