sImprimanteEnCours est une chaîne = iInfoImprimante( Faux, iNomImprimante )
SI PAS iConfigure( Cfg:sImprimante, Faux ) ALORS
//Traitement a effectuer si impossible d'initialiser
//ou de se connecter à l'imprimante
iConfigure( sImprimanteEnCours, Faux ) //Restitution de l'imprimante
Renvoyer Faux
Fin
//Impression
iConfigure( sImprimanteEnCours, Faux )
Renvoyer Vrai
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5631&post_id=23015