'*********** 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 ************