MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

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

    Verificar disponibilidade de impressora

    Compartilhe
    avatar
    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!!!
    avatar
    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"
    avatar
    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: Sex 22 Set 2017, 07:23