IMPRESSORA PADRAO WINDOWS 10
Olá Pessoal.
Estou em um projeto VB6 e utilizando Win10
Acontece que há uma função que imprime utilizando o Printer.
Então, antes de imprimir eu gravo a variavel o nome da impressora padrão, assim: Wimpress_padrao = Printer.DeviceName
e no final da impressão, preciso voltar a impressora que estava como padrao.
Eu sempre fiz assim:
mas não sei porque, pelo menos agora no Win10 não funciona esse comando.
Ao imprimir usando printer, acaba mudando a impressora padrão do windows.
tentei tambem usando assim:
mas também não funcionou. simplesmente não volta a impressora padrão que era.
nao da erro. apenas não volta.
alguém sabe como resolver?
Estou em um projeto VB6 e utilizando Win10
Acontece que há uma função que imprime utilizando o Printer.
Então, antes de imprimir eu gravo a variavel o nome da impressora padrão, assim: Wimpress_padrao = Printer.DeviceName
e no final da impressão, preciso voltar a impressora que estava como padrao.
Eu sempre fiz assim:
For Each x In Printers
If x.DeviceName = Wimpress_padrao Then
Set Printer = x
Exit For
End If
Next x
mas não sei porque, pelo menos agora no Win10 não funciona esse comando.
Ao imprimir usando printer, acaba mudando a impressora padrão do windows.
tentei tambem usando assim:
For Each x In Printers
If x.DeviceName = Wimpress_padrao Then
W.SetDefaultPrinter (Wimpress_padrao)
Exit For
End If
Next xmas também não funcionou. simplesmente não volta a impressora padrão que era.
nao da erro. apenas não volta.
alguém sabe como resolver?
No Win 7, Vista, XP, 8, 8.1, Alguma dessas versões funcionou normalmente?
Veja se esta opção está desativada
Citação::
Veja se esta opção está desativada
muito obrigado era isso mesmo o problema
Tópico encerrado , respostas não são mais permitidas