MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Verificar disponibilidade de impressora

    Compartilhe

    DavidCooper
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 29/02/2016

    Verificar disponibilidade de impressora

    Mensagem  DavidCooper em Qua 02 Mar 2016, 12:43

    Saudações galera... Eu tenho um sistema pra gerar OS's, que gera um registro e imprime um relatório, o relatório é impresso em uma impressora Compartilhada...

    OBS: A impressora não é em rede, ela é de outro PC mas esta compartilhada, ou seja, só vou conseguir imprimir nesta impressora se o PC dela estiver ligado...

    O que eu precisaria era de uma forma de verificar se esta impressora está disponível, pra não ter o perigo de ta gerando o registro sem imprimir a OS..

    Gratidão!!!

    FranklinJSP
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 23
    Registrado : 25/02/2016

    Testar

    Mensagem  FranklinJSP em Qua 02 Mar 2016, 15:24

    Oi

    Testa este código

    Código:
    Private Enum PrinterStatus

    PrinterIdle = 3

    PrinterPrinting = 4

    PrinterWarmingUp = 5

    ' For more states see WMI docs.

    End Enum

    Private Function PrinterStatusToString(ByVal ps As PrinterStatus) As String

    Dim s As String

    Select Case ps

    Case PrinterStatus.PrinterIdle

    s = "waiting (idle)"

    Case PrinterStatus.PrinterPrinting

    s = "printing"

    Case PrinterStatus.PrinterWarmingUp

    s = "warming up"

    Case Else

    s = "unknown state"

    End Select

    PrinterStatusToString = s

    End Function

    Private Sub Form1_Load( _

    ByVal sender As System.Object, _

    ByVal e As System.EventArgs _

    ) Handles MyBase.Load

    Dim strPrintServer As String

    strPrintServer = "localhost"

    Dim WMIObject As String, PrinterSet As Object, Printer As Object

    WMIObject = "winmgmts://" & strPrintServer

    PrinterSet = GetObject(WMIObject).InstancesOf("win32_Printer")

    For Each Printer In PrinterSet

    MsgBox( _

    Printer.Name & ": " & _

    PrinterStatusToString(Printer.PrinterStatus) _

    )

    Next Printer

    End Sub


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    [Você precisa estar registrado e conectado para ver esta imagem.] "Access... minha paixão"

    DavidCooper
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 14
    Registrado : 29/02/2016

    Re: Verificar disponibilidade de impressora

    Mensagem  DavidCooper em Qua 02 Mar 2016, 17:13

    Cara... Tentei fuçar, mas não deu certo... Fica dando erro confused

      Data/hora atual: Dom 04 Dez 2016, 01:53