Public Sub EliminarPRN(pobjNetwork)
Dim objPrinter 
 
	'Creación objeto prn red
	Set objPrinter = pobjNetwork.EnumPrinterConnections
 
	'Comprueba si hay alguna impresora asignada 
	MsgBox objPrinter.Count
	If objPrinter.Count > 0 Then 
 
	    'The Printer array is Printer name, printer path that is why it is step 2 
	    for i=1 to objPrinter.Count Step 2 
 
	        'Comprueba si es una impresora de red
	        if instr(objPrinter.Item(i),"\\") <> 0 Then
	           pobjNetwork.RemovePrinterConnection
	           objPrinter.Item(i),true,true 
	           MsgBox objPrinter.Item(1) & "-" & objPrinter.Item(2) & " Error:" & Error
	        End if 
 
	    next 
	end if 
 
End Sub