MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    Verificar disponibilidade de impressora

    DavidCooper
    DavidCooper
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Verificar disponibilidade de impressora Empty Verificar disponibilidade de impressora

    Mensagem  DavidCooper 2/3/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
    FranklinJSP
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

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

    Verificar disponibilidade de impressora Empty Testar

    Mensagem  FranklinJSP 2/3/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
    Smile "Access... minha paixão"
    DavidCooper
    DavidCooper
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

    Verificar disponibilidade de impressora Empty Re: Verificar disponibilidade de impressora

    Mensagem  DavidCooper 2/3/2016, 17:13

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

    Conteúdo patrocinado


    Verificar disponibilidade de impressora Empty Re: Verificar disponibilidade de impressora

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 19:49