none
Preferencia de Impressão - Rascunho Rapido *.vbs RRS feed

  • Pergunta

  •  

    Feras existe a possibilidade de quando o script de mapeamento de impressora rodar ele tb rode uma preferencia de impressao, ou seja que o usuario por padrao imprima como rascunho Rapido?

     

    segunda-feira, 3 de novembro de 2008 23:05

Todas as Respostas

  •  

    Então vc, pode controlar a qualidade com a propriedade PrintQuality...

     

    Ela varia de impressora pra impressora mas de um modo geral os valores são:

     

    PrintQuality=100    => Qualidade baixa

    PrintQuality=200    => Qualidade média

    PrintQuality=600    => Qualidade alta

     

    Aqui um exemplo de como ver os valores atuais da impressora:

     

    Code Snippet

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters =  objWMIService.ExecQuery _
        ("Select * from Win32_PrinterConfiguration")
    For Each objPrinter in colInstalledPrinters
        Wscript.Echo "Name: " & objPrinter.Name
        Wscript.Echo "Collate: " & objPrinter.Collate
        Wscript.Echo "Copies: " & objPrinter.Copies
        Wscript.Echo "Driver Version: " & objPrinter.DriverVersion
        Wscript.Echo "Duplex: " & objPrinter.Duplex
        Wscript.Echo "Horizontal Resolution: " & _
            objPrinter.HorizontalResolution
        If objPrinter.Orientation = 1 Then
            strOrientation =  "Portrait"
        Else
            strOrientation = "Landscape"
        End If
        Wscript.Echo "Orientation : " & strOrientation
        Wscript.Echo "Paper Length: " & objPrinter.PaperLength / 254
        Wscript.Echo "Paper Width: " & objPrinter.PaperWidth / 254
        Wscript.Echo "Print Quality: " & objPrinter.PrintQuality
        Wscript.Echo "Scale: " & objPrinter.Scale
        Wscript.Echo "Specification Version: " & _
            objPrinter.SpecificationVersion
        If objPrinter.TTOption = 1 Then
            strTTOption = "Print TrueType fonts as graphics."
        Elseif objPrinter.TTOption = 2 Then
            strTTOption = "Download TrueType fonts as soft fonts."
        Else
            strTTOption = "Substitute device fonts for TrueType fonts."
        End If
        Wscript.Echo "True Type Option: " & strTTOption
        Wscript.Echo "Vertical Resolution: " & objPrinter.VerticalResolution
    Next

     

     

    quarta-feira, 5 de novembro de 2008 18:46
    Moderador
  •  

    Fera mas  onde eu coloco o valor do quality print?
    sexta-feira, 7 de novembro de 2008 02:10
  • Ae,...

     

    Code Snippet

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters =  objWMIService.ExecQuery _
        ("Select * from Win32_PrinterConfiguration")
    For Each objPrinter in colInstalledPrinters
    if instr(objPrinter.Name,"ImpressoraTal")<>0 then objPrinter.PrintQuality = 100
    next

     

    terça-feira, 11 de novembro de 2008 08:51
    Moderador
  • Ae,...

     

    Code Snippet

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
        & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
    Set colInstalledPrinters =  objWMIService.ExecQuery _
        ("Select * from Win32_PrinterConfiguration")
    For Each objPrinter in colInstalledPrinters
    if instr(objPrinter.Name,"ImpressoraTal")<>0 then objPrinter.PrintQuality = 100
    next

     

     


    Teria como ao invés de colocar o nome da impressora a ser setada como rascunho "ImpressoraTal", fazer com que todas as impressoras de rede fiquem como rascunho rápido??

    Obrigado
    quinta-feira, 29 de outubro de 2009 09:49