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

 

  Dicas

  Visual Basic    (Impressões/Impressoras)

Título da Dica:  Verificar se existe impressora instalada
Postada em 2/11/2001 por Jayme      Clique aqui para enviar email para o autor  jayme@redex.com.br
' 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
 


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