none
Instalar impressora local com script vbs RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Bom dia!

    Meu nome é Otacilio.

    Estou utilizando o script postado por vocês com sucesso, agradeço pela postagem, tem sido muito útil.

    Surgiu uma necessidade de usar um formulário personalizado, ou seja diferente do padrão A4.

    Gostaria de saber se é possível  alterar no caminho abaixo do Drive da Impressora, o  tamanho do papel.


    ----------------------------------

    Propriedade da Impressora
    Avançado
    Padrões de Impressão
    Avançado...
    Tamanho do Papel:  ---> Mudar de A4 para outro Formulário

    E também na aba (Configurações do Dispositivo), onde temos:

    Cont. alimentação - sem: A4  ---> Mudar de A4 para outro Formulário
    Cortar a folha: A4 ---> Mudar de A4 para outro Formulário
    Cont. alimentação - com: A4 ---> Mudar de A4 para outro Formulário

    ----------------------------------

    Antecipadamente agradeço!



    ------------------------------------------------------------------------
    strPorta = "LPT1:"
    strDriver = "Generic / Text Only"
    strNome = "CAIXA"
    PrinterDefault = True


    if not Printerexist(strNome) then

    strINF = "%windir%\inf\ntprint.inf"
    Set objShell = WScript.CreateObject("WScript.Shell")
    strExec = "rundll32 printui.dll PrintUIEntry /if" & _
    " /b """ & strNome & """" & _
    " /f """ & strINF & """" & _
    " /r """ & strPorta & """" & _
    " /m """ & strDriver & """" 

    objShell.Run strExec,0,1

    if PrinterDefault then objShell.Run "RUNDLL32 PRINTUI.DLL,PrintUIEntry /y /n " & strNome

    end if


    '========= Funções ================

    Function PrinterExist(strPrinterPath)
    PrinterExist=False
    strPrinterPath=ucase(strPrinterPath)

    Set WshNetwork = WScript.CreateObject("WScript.Network")
    Set WSHPrinters = WSHNetwork.EnumPrinterConnections

    For i = 0 To WSHPrinters.Count - 1 Step 2
    if ucase(WSHPrinters.Item(i+1))=strPrinterPath then
    PrinterExist=true
    exit function
    end if
    Next
     
    end function
    ------------------------------------------------------------------------
    sexta-feira, 23 de março de 2018 10:43
    |