aspc est une ASPrinterCollection ;
HOuvreConnexion(MaConnexionpower8)
//No filter
SI PAS AsPrinterList(aspc, MaConnexionpower8) ALORS
Info(ErreurInfo());
SINON
DSPPTR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(aspc)
FIN
//Name filter (1)
SI PAS AsPrinterList(aspc, MaConnexionpower8,"TEST") ALORS
Info(ErreurInfo());
SINON
DSPPTR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(aspc)
FIN
//Name filter (2)
SI PAS AsPrinterList(aspc, MaConnexionpower8,"QFQOUTQ;TEST") ALORS
Info(ErreurInfo());
SINON
DSPPTR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(aspc)
FIN
//Output Queue filter (1)
SI PAS AsPrinterList(aspc, MaConnexionpower8,"", "QUSRSYS/HPDIJON") ALORS
Info(ErreurInfo());
SINON
DSPPTR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(aspc)
FIN
//Output Queue filter (2)
SI PAS AsPrinterList(aspc, MaConnexionpower8, "", "QUSRSYS/HPDIJON;*LIBL/QSYSOPR") ALORS
Info(ErreurInfo());
SINON
DSPPTR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(aspc)
FIN
//Both Name & Output Queue filter (1 & 1)
SI PAS AsPrinterList(aspc, MaConnexionpower8,"HPDIJON", "QUSRSYS/HPDIJON") ALORS
Info(ErreurInfo());
SINON
DSPPTR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(aspc)
FIN
//Both Name & Output Queue filter (2 & 1)
SI PAS AsPrinterList(aspc, MaConnexionpower8, "HPDIJON;TEST", "QUSRSYS/HPDIJON") ALORS
Info(ErreurInfo());
SINON
DSPPTR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(aspc)
FIN
//Both Name & Output Queue filter (2 & 2)
SI PAS AsPrinterList(aspc, MaConnexionpower8, "HPDIJON;TEST", "QUSRSYS/HPDIJON;*LIBL/QSYSOPR") ALORS
Info(ErreurInfo());
SINON
DSPPTR(); //procédure pour afficher les infos. Voir exemple fourni
TableauSupprimeTout(aspc)
FIN