WDForge.org - Forums

Re: imprimante défaut WD autre que défaut Windows

Sujet: Re: imprimante défaut WD autre que défaut Windows
par drcharly93 sur 16/1/2008 15:07:19

Bonjour,

Le principe:
-Récupérer l'imprimante par défaut en cours
-Initialiser l'imprimante voulue comme imprimante par défaut
-Effectuer les impression
-redéfinir l'imprimante par défaut avec celle existante avant modif

Dans le code suivant Cfg:sImprimante est une imprimante réseau défini dans un fichier ini sous la forme
sImprimate=Imprimante=\\Pe2800\OKI C7350

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