DEFINIR IMPRESSORA COMO PADRAO PELO NOME

WEBIER 09/09/2011 19:31:52
#383857
tenho 2 impressoras, denominadas: IMPRESSORA1 e IMPRESSORA2

tem como verificar se a IMPRESSORA1 é a padrão e se não for ele definir ela como padrão?
TECLA 09/09/2011 20:23:28
#383861
WEBIER 12/09/2011 10:15:03
#383971
Citação:

:
Amigo WEBIER,

Criei um exemplo de impressão com uma dúvida de outro amigo aqui do fórum com a seleção da impressora padrão do micro e impressora atual para impressão.

Abraços!
Menudo



Quando eu escolho qualquer uma das opções do seu exemplo ele fecha o form e nada acontece!
MSMJUDAS 12/09/2011 12:02:52
#383982 Resposta escolhida
Tente assim:

Dim W As New WshNetwork
Dim ImpPadrao As String
ImpPadrao = Printer.DeciveName [ô] guarda a impressora padrão atual
If ImpPadrao <> [Ô]IMPRESSORA1[Ô] Then
W.SetDefaultPrinter ([Ô]IMPRESSORA1[Ô]) [ô] seta a impressora padrão
End If

OBS:
Adicionar em References o item: Windows Script Host Object Model (arquivo chamado wshom.ocx)
Tópico encerrado , respostas não são mais permitidas
Voltar