USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Impressora Online
SergioHG
não registrado
Postada em 19/01/2006 09:46 hs   
Bom dia
Como saber se a impressora está ligada/on line ou não??
Valeu !!!
 
 
     
Geronimo
 Pontos: 2843
JOINVILLE
SC - BRASIL
Postada em 19/01/2006 16:31 hs            
Verifica impressora instalada:
 
' No Form

Private Sub Command1_Click()
  MsgBox Verifica
End Sub


' No Modulo
Public Function Verifica()
  On Error Resume Next
  Dim NomeImpressora As String
  NomeImpressora = Printer.DeviceName
  If Err.Number Then
    Verifica = False
  Else
    Verifica = True
  End If
End Function

"O pior inimigo que você poderá encontrar será sempre você mesmo."
     
Página(s): 1/1    


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2025   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site 		Topo da página