IMPRESSORA PADRÃO DO WINDWOS

FABAO 23/04/2016 21:27:36
#461305
Olá pessoal...

estou com um problema...

estou setando a impressora padrão do sistema para imprimir assim:

  

       Dim Impressoras As Printer       
      
       Dim ImpPadrao As String
       
       ImpPadrao = Printer.DeviceName      [ô] pego o nome da impressora padrão atual
       
       For Each Impressoras In Printers
        Set Printer = Impressoras
        If Impressoras.DeviceName = [Ô]CutePDF Writer[Ô] Then Exit For
    Next
       

[ô]aqui vai toda a rotina de impressão, por exemplo:

Printer.Print [Ô]teste[Ô]
Printer.EndDoc

[ô]Até aqui tudo ok, então eu agora preciso retornar o sistema com a impressora padrão de antes da impressão
[ô]Estou fazendo assim:

        For Each Impressoras In Printers
        Set Printer = Impressoras
        If Impressoras.DeviceName = ImpPadrao Then Exit For
       Next


Mas não tá retornando à impressora padrão de antes, fica como padrão a usada na impressão, alguem sabe dizer porque esta ultima rotina não altera a impressora padrão?
FABAO 25/04/2016 20:29:26
#461383
ninguém pra dar uma força?
Tópico encerrado , respostas não são mais permitidas
Voltar