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
