Testando se tem impressora no PC...

[HighBass 0]

Estou tentando utilizar o codigo abaixo para testar no PC a existencia de uma impressora, mas esta dando o erro:'Erro de compilaçao:O tipo definido pelo usuario nao foi definido'Preciso fazer alguma referencia??? Dim prn As Printer Dim s As String s = "" For Each prn In Printers s = s & prn.DeviceName Next If s = "" Then MsgBox "Não existem impressoras instaladas!", vbCritical, "Aviso" End If .

[Luizgrs 0]

Já tentou usar printers.count ?To sem VB aqui no momento então não sei se funciona.

[HighBass 0]

Puts... entao quer dizer que

 

if Printers.count = 0 then	msgbox "Nao existe impressora"endif

 

 

É isso mesmo???

[HighBass 0]

Que tal essa....

 

 

Public Function ImpressoraInstalada() As Boolean	On Error Resume Next		Dim strVerifica As String	strVerifica = Printer.DeviceName		If Err.Number Then		ImpressoraInstalada = False	Else		ImpressoraInstalada = True	End If	End FunctionPrivate Sub Form_Load()	MsgBox ImpressoraInstalada()End Sub

 

 

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif