ERRO AO MARCAR UMA IMPRESSORA COMO PADRAO EM REDE

WEBIER 09/10/2011 22:02:32
#386350
Trabalho com um gerador de formulario onde tive problemas em definir qual impressora iria imprimir o relatorio via codigo, então achei por bem definir como padrao a impressora que quero que o relatorio seja impresso.

O codigo ficou assim:
[ô]Definindo a impressora
Dim W As New WshNetwork
Dim ImpPadrao As String
ImpPadrao = Printer.DeviceName  [ô] guarda a impressora padrão atual
    If ImpPadrao <> [Ô]IMPRESSORA1[Ô] Then
            W.SetDefaultPrinter ([Ô]IMPRESSORA1[Ô]) [ô] seta a impressora padrão
    End If


até ai tudo bem...
Quando a impressora é local... é só colocar o nome dela ai no lugar de IMPRESSORA1
Agora meu problema é quando a impressora é de rede... exemplo:

[txt-color=#e80000]IMPRESSORA1 [ô]local
IMPRESSORA2 [ô]local
IMPRESSORA3 em SERVIDOR [ô]impressora de rede[/txt-color]

ai seu eu colocar no lugar de [Ô]IMPRESSORA1[Ô] no meu codigo [Ô]IMPRESSORA3 em SERVIDOR[Ô] ele dar o erro:
Run-time error [ô]-2147352567[ô]
Automation error
WEBIER 09/10/2011 22:11:28
#386352
RESOLVI...

era só colocar \\SERVIDOR\IMPRESSORA3 

[ô]Definindo a impressora
Dim W As New WshNetwork
Dim ImpPadrao As String
ImpPadrao = Printer.DeviceName  [ô] guarda a impressora padrão atual
    If ImpPadrao <> [Ô]\\SERVIDOR\IMPRESSORA3 [Ô] Then
            W.SetDefaultPrinter ([Ô]\\SERVIDOR\IMPRESSORA3 [Ô]) [ô] seta a impressora padrão
    End If
Tópico encerrado , respostas não são mais permitidas
Voltar