Problema

[faustonet 0]

Preciso saber como faço para tratar o erro run-time error '482' ( error na impressão), quando acontecer este erro queria que ele aparecia uma outra mensagem Exemplo ( A impressora não esta conectada) Alguém me ajude por gentileza :natalwink:

[eriva_br 7]

uma forma de fazer isso é com On Error GoTo, veja:

 

Private Sub btnImprimir_Click()		On Error GoTo OcorreuErro	'sua rotina de impressão	Exit SubOcorreuErro:	If Err.Number = 482 Then		MsgBox "Impressora não conectada", vbApplicationModal + vbExclamation, "Aviso"	Else		MsgBox Err.Description, vbApplicationModal + vbExclamation, "Erro"	End IfEnd Sub

falows

t+

:noel: