none
Impressora padrão com VBS RRS feed

  • Pergunta

  • Boa tarde.

    Eu estava tentando mudar a impressora padrão, imprimir e voltar a impressora antiga, usando VBScrip, mas sempre pega a impressora padrão de quando o navegador é aberto, mas gostaria de mudar, usar a nova impressora padrão e voltar a antiga.

    Segue o script:

      
     <script language="VBScript">                                
                    sub Print()                            
                            Set objPrinter = CreateObject("WScript.Network")
                            objPrinter.SetDefaultPrinter "CutePDF Writer"
                            
                OLECMDID_PRINT = 6
                OLECMDEXECOPT_DONTPROMPTUSER = 2
                OLECMDEXECOPT_PROMPTUSER = 1
                call WB.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER,1)
                                                    
                            Set oldPrinter = CreateObject("WScript.Network")
                            oldPrinter.SetDefaultPrinter "PDF995"
            End Sub
            document.write "<object id='WB' width='0' height='0' classid='CLSID:8856F961-340A-11D0-A96B-00C04FD705A2'></object>"
        </script>


    Desde já, agradeço.


    • Editado zcurif segunda-feira, 21 de outubro de 2013 16:08
    • Movido Fábio Jr sexta-feira, 6 de dezembro de 2013 19:42 Mais adequado
    sexta-feira, 18 de outubro de 2013 21:07

Todas as Respostas

  • Amigo, pela sua descricao entendi que determinado aplicativo voce quer que esteja definida a impressora X como padrao por uma dificuldade do usuario em selecionar a impressora ou limitacao do aplicativo em alterar a impressora, a minha sugestao seria voce criar um script de selecao da impressora onde ele define a impressora como padrao depois abre a aplicacao X e um outro script que selecione a outra impressora assim que a aplicacao for fechada.

    isso te atenderia? o entendimento esta correto?


    an2nathan

    sábado, 19 de outubro de 2013 02:21
  • Utilize o seguinte comando para mapear a impressora:

    rundll32 printui.dll,PrintUIEntry /in /n \\servidor\impressora

    Att, Paulo Rocha

    • Sugerido como Resposta Paulo R S Rocha segunda-feira, 14 de julho de 2014 14:40
    terça-feira, 3 de dezembro de 2013 20:11