;=======================================================================================================================
; déclaration des variables
;=======================================================================================================================
Opt("MustDeclareVars", 1)
LOCAL $strModele = """RICOH Aficio 2018 PCL 6"""
LOCAL $strAfficher, $intLongueur


;=======================================================================================================================
; début du programme
;=======================================================================================================================

; on prépare le message à afficher
$strAfficher = "Suppression du photocopieur " & $strModele & " en cours ..."
; on calcule la longueur du message
$intLongueur = StringLen($strAfficher) * 9
; on affiche le message
SplashTextOn("", $strAfficher, $intLongueur, 70, -1, -1, 0 + 1 + 16 + 32, "Times New Roman", 12, 800)

; on lance la suppression de l'imprimante
RunWait("rundll32 printui.dll,PrintUIEntry /dl /n " & $strModele & " /m " & $strModele & " /q")

; on efface le message
SplashOff()