Sub SetDefaultPrinter(ByVal ImpName As String) 

    Dim MyImpresora As Object       
    Set MyImpresora = CreateObject("WScript.Network")
    MyImpresora.setdefaultprinter ImpName        
      
End Function