CHAMAR TELA DAS IMPRESSORAS

NICOLLAS2 08/12/2010 10:41:40
#359062
Galera, uso o CommonDialog para chamar a tela das impressoras
CommonDialog1.ShowPrinter
IMPRESSORA = CommonDialog1.FileName

ok, tudo certo, imprime de acordo com a impressora que escolhi

porem, notei que ele altera a impressora padrao para a qual eu selecionei, esse que eh o problema, como faco para ele voltar a impressora que estava antes?
EXPERT 16/12/2010 16:00:40
#359695 Resposta escolhida
Olá amigo ....

Tenta isso ...

  Dim ImpPadrao As Printer
  
  For Each ImpPadrao In Printers      [ô]Para pegar a impressor padrão .... aff ... só assim consegui ^^
    If ImpPadrao.DeviceName = Printer.DeviceName Then Exit For
  Next
  
  [ô]Seu código
  [ô]
  [ô]
  [ô]
  
  Set Printer = ImpPadrao         [ô]No final de tudo


FICA COM DEUS!!!
FAUZE 29/12/2010 16:26:42
#360654
Olá EXPERT,

Estou com o memso problema, e aproveitando sua sugestão constatei que após a impressão a impressora usada para imprimir ficou como padrão, não voltando a anterior.

O que será que está errado???
JEISONANTONI 29/12/2010 17:03:33
#360658
boa tarde.

O comando citado pelo amigo nicollas2 - (CommonDialog1.FileName) não retorna nada quando seleciona a impressora.
NICOLLAS2 29/12/2010 17:39:27
#360665
Citação:

:
boa tarde.

O comando citado pelo amigo nicollas2 - (CommonDialog1.FileName) não retorna nada quando seleciona a impressora.



eh que meu codigo vai alem daquela linha.. usei apenas como referencia.

vou testar sua dica EXPERT, logo retorno.
Tópico encerrado , respostas não são mais permitidas
Voltar