|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Impressões/Impressoras)
|
|
 |
Título da Dica: Verificar se existe impressora instalada
|
 |
|
|
|
Postada em 2/11/2001 por Jayme
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
|
|
|
|
|
