Interface IADsPrintQueue (iads.h)

Article
08/24/2023

L’interface IADsPrintQueue représente une imprimante sur un réseau. Il s’agit d’une interface double qui hérite des IAD. Les méthodes de propriété de cette interface vous permettent d’accéder aux données relatives à une imprimante, par exemple le modèle d’imprimante, l’emplacement physique et l’adresse réseau.

Héritage

L’interface IADsPrintQueue hérite d’IDispatch et d’IADs. IADsPrintQueue possède également les types de membres suivants :

Notes

Utilisez cette interface pour parcourir une collection de travaux d’impression dans la file d’attente d’impression. Pour contrôler une imprimante sur un réseau, utilisez l’interface IADsPrintQueueOperations . Pour obtenir une collection des travaux d’impression, appelez la méthode IADsPrintQueueOperations::P rintJobs .

Dans Windows, une imprimante ou une file d’attente d’impression est gérée par un ordinateur hôte. Si le chemin d’accès à une file d’attente d’impression est connu, liez-y comme à tout autre objet ADSI.

L’exemple de code Visual Basic suivant montre l’opération de liaison.

Dim pq as IADsPrintQueue
Set pq = GetObject("WinNT://aMachine/aPrinter")

L’exemple de code C++ suivant montre l’opération de liaison.

IADsPrintQueue *pq;
LPWSTR adsPath = L"WinNT://aMachine/aPrinter";
HRESULT hr = ADsGetObject(adsPath,
                          IID_IADsPrintQueue,
                          (void**)&pq);

Pour énumérer toutes les files d’attente d’impression sur un ordinateur donné

Lier à l’objet ordinateur.
Déterminez si l’ordinateur contient des objets « PrintQueue ».
Énumérez tous les objets d’imprimante trouvés.

Exemples

L’exemple de code suivant énumère les imprimantes sur un ordinateur donné.

Dim cont As IADsContainer
Dim pq As IADsPrintQueue

On Error GoTo Cleanup
 
' Bind to the computer object
Set cont = GetObject("WinNT://fabrikam1,computer")

cont.Filter = Array("PrintQueue")

For Each p In cont
   Set pq = GetObject(p.ADsPath)
   MsgBox pq.Name & " is a " & pq.Model
Next p

Cleanup:
    If (Err.Number<>0) Then
        MsgBox("An error has occurred. " & Err.Number)
    End If
    Set cont = Nothing
    Set pq = Nothing