'*********** Código ***************
'
' imprPredeterminada
'
' Función que intenta establecer la
' impresora predeterminada a la impre-
' sora que se le pase en su argumento
' nomImpresora.
'
' La función devolverá True en caso
' de éxito y False en caso contrario.
' En caso de que la impresora no exis-
' tiera y el código lo ejecutáramos
' utilizando VB o VBA se produciría el
' error -2147352567. Si utilizamos
' VBScript simplemente no haría nada.
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Function imprPredeterminada( _
    nomImpresora As String) As Boolean
    
    Dim wshNetwork As Object 'WshNetwork

    Set wshNetwork = CreateObject("WScript.Network")
    On Error GoTo err_imprNoExiste
    wshNetwork.SetDefaultPrinter nomImpresora
    imprPredeterminada = True
    
exit_imprPredeterminada:

    Set wshNetwork = Nothing
    Exit Function
    
err_imprNoExiste:

    If Err.Number <> -2147352567 Then
        MsgBox "Error número: " & Err.Number & vbCrLf _
            & Err.Description
    End If
    GoTo exit_imprPredeterminada

End Function
'********** Fin código ************

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)