'*********************************************************
' wshSetDefaultPrinter
'
' Con esta sencilla rutina, cambiamos la impresora
' predeterminada del sistema.
'
' Argumentos
'    prn: Requerido. El nombre de la nueva impresora
'    predeterminada. Si este nombre no coincide con 
'    ninguna impresora instalada en el sistema se 
'    producirá un error.
'
' Para obtener los nombres de las impresoras instaladas
' y si se está trabajando con una versión de Access 
' inferior a la XP, podéis utilizar el código que se
' muestra en wshPrinters
'
Sub wshSetDefaultPrinter(prn As String)
Dim wshNetwork As Object 'New wshNetwork


    Set wshNetwork = CreateObject("WScript.Network")
    wshNetwork.SetDefaultPrinter prn
    Set wshNetwork = Nothing
    
End Sub
'*********************************************************